Perlの勉強(正規表現)

午前中は、台風18号の影響で自宅待機。昨日、購入した「初めてのPerl」という本を読んでいたら、パターンをテストするプログラムが載っていた。

#!/usr/bin/perl -w
# 正規表現のテストプログラム
#  

while (<>){
    chomp;
    if (/^.$/){ #//内にテストしたい正規表現を書く
	print "Matched: |$`<$&>$'|\n";
    } else {
	print "No match.\n";
    }
}