open(FILE,"+<$logfile");
eval { flock(FILE,2); };
seek(FILE,0,0);
truncate(FILE,0);
print FILE @lines;
eval { flock(FILE,8); };
close(FILE);
ロック処理を覚え始めたばかりの人間です。
この処理方法の記載にはミスがありますでしょうか？