次期バージョンβリリーステストスレッド

36 ：Aさん ◆/E1/G4IY ：2003/03/11 15:43 ID:???

>>21
closeすればロックは解除になります。
オートフラッシュを使っていなければ実際にはclose前のprintでは
書き込みは行われないので、その前に解除すると別プロセスから
アクセスされる危険があるので。

subject.txtなど、上書きも安全性を考えるとこんな感じかな。

open(FILE, "+< $file");
flock(FILE, 2);
truncate(FILE, 0);
seek(FILE, 0, 0);
print FILE "$file\n";
close(FILE);

さらにsysopen、syswriteのほうがよりいいかも。