Perl:flock()でLOCK_ｘｘを記述するにはuse Fcntl ‘:flock’;が必要

問題と結論はタイトルの通りです。そんなの当たり前って方が殆どだとは思いますが、、、

昨日、ほぼ１ヶ月ぶりにナンプレサイトの問題更新が失敗していました。ＰｅｒｌＣＧＩを午前２時に定期実行しているのですが、たまに失敗してファイルが作成されません。エラーログとか見てもＣＧＩがエラーになったログはなく・・・１年に１回位なら失敗しても仕方ないかと思ってましたが月イチ程度となると、、と、ちょっと真面目に調べてみました。

で、タイトルの通りです。お恥ずかしい。LOCK_EXでロックしていたのですがuseしていなかったので値は何なのか分かりません。簡易的にif分を入れてみたところ期待する「２」で無いことは分かりましたｗ

Perl自体はあさ～い知識で使用していますので、何か分からなければググってコピペ→動けばＯＫみたいなやり方をしてきましたが、まぁそんなやり方じゃいけませんよーって天からの忠告ですね。実行時エラーにもならずテストではファイルもキチンと出来てしまうのでまったく疑いもしませんでした。。

２本のプログラムから書き込みがあるファイルなのでロックできていないとファイルが壊れたりするんでしょうね。その辺りは確認してませんが、暇があればどういう挙動になるのかテストしてみたいです。

更新失敗の原因だという特定はできていませんが、修正してとりあえず様子見としたいと思います。他にも色々怪しいところがありそうです。。エラーの処理とかもあんまり書いて無いし・・・

ということで、flock()を使っているソースにuseを追加して、今日の更新は上手く行ったようです。