初めてのPerl 第7章正規表現の世界 練習問題6
読み込んだ行のうちwilmaとfredの両方を含む行をすべて出力しています。
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; open (FILE, "<", "names.txt"); foreach my $name (<FILE>){ if ($name =~/wilma/ && $name =~/fred/){ print $name; } }
以下読み込んでいるファイルの内容になります。
Fred
FRED
FRed
Fred
mississippi
Bamm-Bamm
llam
fred wilma
wilma fred
betty
BETTY
beTty
fred betty wilma
以下実行結果です。
fred wilma
wilma fred
fred betty wilma