ログの一部を消す Perl

質問

ログの一部を消すPerlを考えています。

ここではソースを短くするために、ログの一部を消し去って
ログファイルに上書きするデータは $deta だけだとすると

open F, '+<a.log';
flock F,2;
$deta = <F>;//実際はここでもっと処理
truncate F,0;
seek F,0,0;
print F $deta;
close F;

と、

open IN, 'a.log';
flock IN,2;
open OUT, '>a.log';
flock OUT,2;
$deta = <IN>;//実際はここでもっと処理
print OUT $deta;
close OUT;
close IN;

の2つを考えました。
上のように 読み込み と 書き込み を同時にやった方がいいのか
下のように分けてやった方がいいのか教えてください。

ロックは flock を使って、普通レベルのロックが
できるぐらいでいいと思っているんだけど、
この flock の書き方でおかしいところがあれば
教えてください。

回答No.1

noname#25358 · ベストアンサー

何を基準にいいか悪いか決めればいいんでしょうか？(^_^;
　好みの問題だからどっちでもいいと思いますが。
　速度的には前者ですが、あとで見たとき分かりづらいので初心者の方には後者を薦めています。

　ちなみに flock はプラットフォームによって使えないこともあるので、

eval { flock(); };

　としておいた方がいいでしょう（使い方に特に問題はありません）。

お礼

eval { flock(); }; は知りませんでした。
ありがとうございます。