初めてのPerl 第7章正規表現の世界 練習問題2
fred、alfred、frederickなど「fred」が含まれた行を、大文字小文字区別せず表示する。
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use 5.010; open (FILE, "<", "names.txt"); #<FILE>から1つづつ値を取り出して表示する foreach my $name (<FILE>){ chomp($name); #print Dumper $name; #入力値にfredが含まれているか判断する if($name =~ /[Ff}red/){ print $name; } }
以下参照しているファイルになります。
fred flintstone
fred
barney.
fred
fred flintstone
Mr. Slate
alfred
takeshi
alfred
frederick
Fred
FRED
FRed
Fred
mississippi
Bamm-Bamm
llama
以下実行結果となります。
fred flintstone
fred
fred flintstone
alfred
alfred
frederick
Fred
Fred