プログラミング学習の記録 615.2 17章(上級テクニック)の練習問題1 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9) の17章(上級テクニック), 17.6(練習問題)、1を解いてみる。

 

1.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/perl
use strict;
use warnings;

open FILE,"sample_text";
chomp(my @list=<FILE>);
while(1){
  print "パターンを入力\n";
  chomp(my $str=<STDIN>);
  last if $str=~/^\s*$/;
  my @matches=eval{
    grep /$str/,@list;
    };
  if($@){
    print "An error occurred ($@), continuing\n";
  }else{
    my $count=@matches;
    print "マッチした個数: $count\n";
    print map "$_\n",@matches;
  }
}

入出力結果(Ternimal)

$ ./my_program パターンを入力 kamimura マッチした個数: 0 パターンを入力 ^fred マッチした個数: 1 fred had come up with a plan of his own. with his bowling ball in パターンを入力 ^barney マッチした個数: 3 barney checked the time. "we aren't scheduled to start until half barney continued. "you and wilma go ahead to the restaurant. barney here. no barney at all. put that bowling ball down, パターンを入力 ^wilma マッチした個数: 5 wilma saw this and said to betty, "you should ask barney to take wilma. wilma answered the phone. "hello?" she asked. wilma was getting more curious. fred said, "well, that mineral, i wilma interrupted him. "fred, give me the phone. i'll take care パターンを入力 ^[ An error occurred (Unmatched [ in regex; marked by <-- HERE in m/^[ <-- HERE / at ./my_program line 12, <STDIN> line 5. ), continuing パターンを入力

evalでちゃんと正規表現のエラーをトラップできたみたい。

ファイルの用意が必要な場合はO'Reilly Japan - 初めてのPerl 第5版の関連ファイルのプログラム例に含まれているものを使用しています。