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