ファイルロックについて
こんばんわ、お世話になります。
Perlのファイルロックについて教えて下さい。
色々書き方があるようなのですが、私は下記のように
単純に書いています。
#// ファイルロック開始
flock(LOCK, 2);
#// ファイルオープン
open(LOG, ">>$data") or exit;
#// ファイルへ書き出し
print LOG "$now,$ip,$ls\n";
#// ファイルクローズ
close(LOG);
#// ファイルロック解除
flock(LOCK, 8);
原因かわからないのですが、アクセスが多数同時にあると
10分くらいレスが返ってこなくなったりすることがあるようです。
ファイルロックに精度とかあったりすのでしょうか?
単純に、コードが1500行くらい書いているので、やっている処理自体
重いのかもしれませんが、1アクセスの場合は問題なく返ってくるので
どうなのかな…と思い、投稿しました。
論理ファイル(CSV)を呼んで、中のデータを絞り込んでいき
その結果をPOSTするいったこと(100ファイル分くらい)をやって
います。
ファイルロックによって、パフォーマンスが悪くなったりするのか、
どなたかご教授ください。お願いします。
お礼
ありがとうございました!! 本当に本当に助かりました!感激です。