03/08/27 21:09
open(LOG, "+<$logfile") or &error("Open Error : $logfile");
flock(LOG, 2);
my (@lines) = <LOG>;
(ロックスレなので、、略)
seek(LOG, 0, 0);
truncate(LOG, 0);
print LOG @lines;
close(LOG);
上の書き方では、seekとtruncateの間で終了させられると、
ファイルの中身が失う危険性があるから、
seek(LOG, 0, 0);
print LOG @lines;
truncate(LOG, ftell(LOG));
close(LOG);
と書くといいらしいです。(実際はどうなんでしょ？)
URLﾘﾝｸ(www.kt.rim.or.jp)
URLﾘﾝｸ(www.kt.rim.or.jp)
クックブック 7.11
URLﾘﾝｸ(homepage1.nifty.com)