今日のPerl
公開日:
:
最終更新日:2014/02/04
プログラミング
記事内に広告を含む場合があります。記事内で紹介する商品を購入することで、当サイトに売り上げの一部が還元されることがあります。
my $filename = 'sample_text';
open FILE, $filename
or die "Can't open '$filename': $!";
chomp(my @strings = <FILE>);
while(1){
print "Please enter a pattern: ";
chomp(my $pattern = <STDIN>);
last if $pattern =~ /^\s*$/;
my @matches = eval{
grep /$pattern/, @strings;
};
if($@){
print "Error: $@";
}else{
my $count = @matches;
print "There were $count matching strings:\n",
map "$_\n", @matches;
}
print "\n";
}
関連記事
- PREV
- 10日でおぼえるPerl/CGI入門教室
- NEXT
- Perlさいころ