読み込んだ行のうち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; } } 以</file>…

読み込んだ行のうち、2回連続して同じ文字が現れている行を表示する。 #!/usr/bin/perl use strict; use warnings; open (FILE, "<", "names.txt"); #大文字小文字を区別して、連続した文字が2つ出てきたときにマッチさせる。 foreach my $name (<FILE>){ if($name</file>…