ついにPerlのメインともいえる正規表現に差しかかりましたよ!正規表現自体は平行してちょっとずつ勉強してたんだけど、「初めてのPerl」でその章に入ったという意味です。
で、テスト用のコードをちょこっと改良して、起動時にパターンも設定できるようにしてみました。(多分すでに多くの、実に多くの人がやっているであろうことですが。)
良いのです。自分向けのメモですから!
#!/usr/bin/perl use strict; use warnings; #----------------------------------------# # ./TestRegEx [パターン] [ファイル] # #----------------------------------------# # 結果:マッチした部分が<>で囲まれる。 # #----------------------------------------# my $ptn = shift @ARGV; while ( <> ){ chomp; if ( /$ptn/ ){ print "Matched : $`<$&>$'\n"; } # print "Matched : $`<$&>$'\n" if /$ptn/; の方がいいのかな? }