ファイルロックについて

質問

こんばんわ、お世話になります。

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ファイル分くらい)をやって
います。

ファイルロックによって、パフォーマンスが悪くなったりするのか、
どなたかご教授ください。お願いします。

回答No.2

taseki · ベストアンサー

失礼…、ANo.1のコード、open文のカッコ閉じが抜けていました。

お礼

taseki様、お礼を申し上げるのが大変遅くなり
申し訳ありませんでした。

サーバのスペックにも問題があるのと、ロジックでやっている
論理ファイルの処理が大分重かった為、論理ファイル自体を軽減
したのと、ご教授いただいたコードにて対応したら大分ストレスが
解消されました。

本当にありがとうございました。

回答No.1

taseki

実際のサーバー負荷やスクリプトのパフォーマンスなど解らないので、また「10分くらいレスが返ってこなく」という部分もちょっと解らない（httpdのタイムアウトにならない？）ので何とも言えませんが、ただ基本的にファイルロックの手法として少々問題があるように思います。

まずflockの第2引数でLOCK_NB（４）を付加して、「ノンブロック」を指定しないと、ロックできるまで固まったようになってしまいます。
また、もしロックに失敗した場合（複数のアクセスが重なった、など）の処理がありませんので、これもやはり行き場がなくなります。

サンプルコード
ロックできなかったら1秒待ち、それを20回繰り返します。それでもロックできなかったらエラーにします。
------------------------------------
use Fcntl qw(:DEFAULT :flock);

my $lock_file = '/tmp/test.lock';

&file_lock($lock_file) or &error(...) # ロック失敗 エラー処理
# ロック成功
# ファイル出力処理など…
open ...
print ...
:
:

sub file_lock {
　　　　local *FH;
　　　　my $file_path = $_[0];
　　　　my $locked = 0;
　　　　foreach (1 .. 20) {
　　　　　　　　open(FH, ">$file_path" or return;
　　　　　　　　if (flock(FH, LOCK_EX | LOCK_NB)) {
　　　　　　　　　　　　$locked = 1;
　　　　　　　　　　　　last;
　　　　　　　　}
　　　　　　　　sleep(1); # 1秒待機
　　　　}
　　　　return $locked;
}
------------------------------------
※インデントに全角スペースを使っています。