原因:
有将license 的信息打印到log中的需求,这段code是call perl scripts,而多用户同时丢job会在central中同时调用该perl,所以产生同时write log的现象,这样导致log data dirty. 所以打算采用file lock 方法.
其实但从lock file的角度上是没有什么可写的,因为也是百度的他人的, 不过在自己电脑上try的时候遇到了一些问题,现在记录下来.
link: http://my.oschina.net/leejun2005/blog/108656
use File::Lockfile
缺省状态下没有安装,所以sudo perl -MCPAN -e 'install File::Lockfile'. 但是提示没有YAML,只能官网下载:
http://search.cpan.org/~mstrout/YAML-0.84
Perl Makefile.PL
make
make install
chmod path if need.
Warning: No success on command[/usr/bin/perl Build.PL
没有Module::Build 模块,而且通过perl -MCPAN -e 'install xxx' 失败
Install module build: cpan Module::Build
Or allow cpan to install dependancies for you:cpan Test::Harness::Straps
然后 install File::Localfile