2019年10月29日火曜日

開発環境

初めてのPerl 第7版 (Randal L. Schwartz(著)brian d foy(著)Tom Phoenix(著)近藤 嘉雪(翻訳)嶋田 健志(翻訳)オライリージャパン)の16章(上級テクニック)、16.6(練習問題)1の解答を求めてみる。

コード

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use v5.18;
use Encode::Locale;
binmode STDIN, ':encoding(console_in)';
binmode STDOUT, ':encoding(console_out)';
binmode STDERR, ':encoding(console_out)';

say '1.';

# my $filename = 'sample_text.txt';
my $filename = 'sample1.pl';
open my $fh, '<',  $filename or die "Can't open file '$filename': $!";
chomp(my @strs = <$fh>);

while (1) {
    print "パターンを入力: ";
    chomp(my $pattern = <STDIN>);
    last if $pattern =~ /^\s*$/;
    my @matched = eval {
        grep /$pattern/, @strs;
    };
    if ($@) {
        say "Invalid pattern: '$pattern'";
    } else {
        say '個数:', 0 + @matched;
        say '文字列';
        say map "$_\n", @matched;
    }
}

入出力結果(Zsh、cmd.exe(コマンドプロンプト)、Terminal)

% ./sample1.pl 
1.
パターンを入力: pat
個数:4
文字列
    chomp(my $pattern = <STDIN>);
    last if $pattern =~ /^\s*$/;
        grep /$pattern/, @strs;
        say "Invalid pattern: '$pattern'";

パターンを入力: $p 
個数:0
文字列

パターンを入力: \$p
個数:4
文字列
    chomp(my $pattern = <STDIN>);
    last if $pattern =~ /^\s*$/;
        grep /$pattern/, @strs;
        say "Invalid pattern: '$pattern'";

パターンを入力: $_
個数:0
文字列

パターンを入力: \$_
個数:1
文字列
        say map "$_\n", @matched;

パターンを入力: [a
Invalid pattern: '[a'
パターンを入力: 
%

0 コメント:

コメントを投稿

関連コンテンツ