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