[linux perl] ファイルの書き込み速度を向上させる方法。　perlで一度に複数のファイルを書き出すプログラムを作っていますが、openで書き出しています。　ファイルの数が増えるとやはり徐々に完了まで時間がかかってきますが、ファイルを書き出す際の速度向上にはどのようなものがあるでしょうか。　ハードウェアの交換等以外でお願い致します。

urlの設定を行いrebootするとディスクの書き込みスピードがアップします。

但し、urlにもありますが、この設定によってiノードのアクセス時間が更新されなくなる点をご注意ください。

システムコールを減らしましょう。

また、動的にメモリの増減が行われる場所をループ外に出し、予めメモリを確保しましょう。

恐らくファイルの数が増えるというのは見た目の問題で、実際の問題はメモリの確保・再確保にコストがかかっていると思われます。

差し支えなければ、出力部分のコード等載せていただけませんか。

URLはダミーです。

$hoge = &sub($nantara);

この部分で、subを呼んだ時に$nantaraの内容のコピー、returnしたときに$hogeへの戻り値のコピーが多発しています。

これがループ内にあるとかなりの無駄なコピーが発生します。

関数subに渡す変数と戻りの変数で複写が発生しないようにスコープを変えてみてはいかがですか？

扱っているデータが大きい場合、相当なコストが発生します。