初めてのPerl 第7章正規表現の世界 練習問題1
fred、alfred、frederickなど「fred」が含まれた行を表示する。
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use 5.010; open (FILE, "<", "names.txt"); print Dumper @_; foreach my $name (<FILE>){ chomp($name); #print Dumper $name; #print Dumper @_; =pod #入力値にfredが含まれているか判断する if($name eq 'fred'){ print $name . "\n"; }else{ print " \n"; } =cut if ($name =~ /fred/){ print $name . "\n"; } }
参照している「names.txt」は以下の通りです。
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
fred flintstone
alfred
alfred
frederick