2008-03-16 9.7 ディレクトリ内の全てのファイルを再帰的に処理する Perl Cookbook File::Findモジュールを使用する use File::Find; sub process_file { # 任意の処理を書く } find(\&process_file, @DIRLIST);