Perl - 中級者の基礎知識(正規表現とeval)

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール/長尾 高弘 訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9) の2章(中級者の基礎知識),　2.4(練習問題)2を解いてみる。

2.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl
use strict;
use warnings;

my $dir = ".";
chdir $dir;
while(1){
  print "パターンを入力: ";
  chomp(my $pattern = <STDIN>);
  last if $pattern =~ /^\s*$/;
  print map{"$_\n"} grep{ eval{ /$pattern/}} glob(".* *");
}

入出力結果(Terminal)

$ perl sample.pl
パターンを入力: ^perl
perl_kamimura_blog
perl_program.bak.bak
perl_program.pl
perl_program1
perl_program1.bak
パターンを入力: perl$
パターンを入力: bak$
perl_program.bak.bak
perl_program1.bak
sample.bak
sample_text.bak
sample_text.out.bak
test.bak
パターンを入力: javascript
パターンを入力: 
$