初めてのPerl 第7章
練習問題をメモ。
ex07-1
#!/usr/bin/perl use strict; while (<>) { chomp; if (/fred/) { print "Matched: $`<$&>$'\n"; } else { print "No match.\n"; } }
ex07-2
#!/usr/bin/perl use strict; while (<>) { chomp; if (/a+b*/) { print "Matched: $`<$&>$'\n"; } else { print "No match.\n"; } }
ex07-3
#!/usr/bin/perl use strict; while (<>) { chomp; if (/\\*\**/) { print "Matched: $`<$&>$'\n"; } else { print "No match.\n"; } }
ex07-4
#!/usr/bin/perl use strict; while (<>) { chomp; if (/(w|W)ilma/) { print "$_\n"; } }
ex07-5
#!/usr/bin/perl use strict; while (<>) { chomp; # /wilma.*fred|fred.*wilma/ で十分だった if (/.*wilma.*fred.*|.*fred.*wilma.*/) { print "$_\n"; } }
反省点
正規表現をもっとがんばりましょう。