初めてのPerl 第7章 正規表現の世界 練習問題4
読み込んでいるファイルの先頭文字が大文字になっているものを表示する。
#!/usr/bin/perl use strict; use warnings; open (FILE, "<", "names.txt"); foreach my $name (<FILE>){ chomp($name); if ($name =~ /^[A-Z][a-z]+$/){ print $name . "\n"; } }
以下参照しているファイルになります。
fred flintstone
fred
barney.
fred
fred flintstone
Mr. Slate
alfred
takeshi
alfred
frederick
Fred
FRED
FRed
Fred
mississippi
Bamm-Bamm
llama
以下実行結果になります。
Fred
Fred