プログラミング学習の記録 577.2 7章(正規表現によるマッチ)の練習問題6 『初めての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) の7章(正規表現によるマッチ), 7.4(練習問題)、6を解いてみる。

 

6.

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

コード(TextWrangler)

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

while(<>){
  if(/(wilma.*fred)|(fred.*wilma)/){
    print "Matched: $_";
    }
}

入出力結果(Ternimal)

$ ./my_program wilmafred Matched: wilmafred fredwilma Matched: fredwilma wilma fred Matched: wilma fred fred wilma Matched: fred wilma fred wilma

ちゃんと読み込んだ行のうち、wilmaとfredの両方を含む行だけがマッチしている。

ファイル、sample_textでも確認してみる。

コード(TextWrangler)

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

my $line=0;
while(<>){
  $line++;
  if(/(wilma.*fred)|(fred.*wilma)/){
    print "line $line: $_";
    }
}

入出力結果(Ternimal)

$ ./my_program sample_text line 23: so wilma found fred and told him, "hey, fred, you've been going line 27: "but wilma," said fred, "barney and i need to go tonight. this is line 31: that wasn't good enough for wilma. "fred flintstone, if you think line 49: you can't tell wilma what's going on, because fred made me line 97: the telephone rang. "you get that, wilma," said fred. "i'll be line 109: bowling ball in the car. "it's for you, fred," said wilma. line 118: "yes, yes," said fred. wilma stood by, curious about this line 125: wilma was getting more curious. fred said, "well, that mineral, i line 136: wilma interrupted him. "fred, give me the phone. i'll take care

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