04/05/10 23:20
自分でファイルロック処理だけ書いてみたのですが、
112行目からを
sub outputdata{
# 現在の時間を取得
($sec,$min,$hour,$day,$mon,$year) = localtime(time);
$mon++;
$year += 1900;
$stmp = sprintf("%04d/%02d/%02d-%02d:%02d:%02d",$year,$mon,$day,$hour,$min,$sec);
open (DAT,">>$output");
&body;
flock(DAT,2);
print DAT "$body,$stmp\r\n";
flock(DAT,8);
close (DAT);
}
こうしてみました。これだけでいいのでしょうか？