あるディレクトリ内を再帰的に処理し、その結果を変数の中に詰め込む関数を作ってみました。 sub recursive { my ( $base_dir, $result, $function ) = @_; my( @files ); @files = glob( $base_dir.'/*' ); for my $file_name ( @files ){ if ( -d $file_na…