初めてのPerl 第7章 正規表現の世界 練習問題3

「．」がついている行を表示させる。

#!/usr/bin/perl

use strict;
use warnings;

open (FILE, "<", "names.txt");

foreach my $name (<FILE>){
  chomp($name);

  if ($name =~ /\./){
    print $name . "\n";
  }
}

参照しているファイルになります。

fred flintstone
fred
barney.
fred
fred flintstone
Mr. Slate
alfred
takeshi
alfred
frederick
Fred
FRED
FRed
Fred
mississippi
Bamm-Bamm
llama

以下実行結果となります。

 barney.
 Mr. Slate