初めての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