Perlのファイルへの書き込み効率

Question

私はファイルのいくつかの情報を持つデータベースを作成しています。
例：file_name |サイズ| ... MODIFY_DATE

私はこのような状況では、より効率的であるものを考えていた：情報を取得し、私のファイル

foreach my $file (@listOfFiles) {     
    my %temporary_hash = get_info_for_file($file); //store in a tempoarary hash 
                the informations for current file 
    print_info(%temporary_hash, $output_file);  // print the information in my output file 
} 

2）ストアでそれらを印刷

1）ファイルごとにハッシュ内のすべてのファイルに関する情報を一度にすべて出力します。

foreach my $file(@listOfFiles){ 
    store_info_in_hash(get_info_for_file($file), %hash); // for each file, store the 
                  information in a global hash 

    } 
print_all_info(%hash, $output_file);      //after i have informations for each file 
                  print the whole hash in my output file 

Answer 1

あなたのプログラムを稼働させる前に効率を考慮するのは間違っている

できるだけ明確なコードを書いてデバッグしてください。そのときだけ、目的のために十分に速く実行されていない場合は、コードをプロファイラに入れて、最も時間がかかるボトルネックを発見する必要があります。

表示される2つのオプションは、

Answer 2

2つのオプションのベンチマークテストを行っていますが、これらの結果が得られます（各ファイルの情報サイズを大きくすると、2つの差分の差が大きくなります）。