【Perl】ファイルロック(排他処理)について語ろう

【Perl】ファイルロック(排他処理)について語ろうat PHP

【Perl】ファイルロック(排他処理)について語ろう - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

885:nobodyさん
 06/01/08 16:25:04 
test

886:nobodyさん
 06/01/11 15:20:26 
で、結局どうなったの？

887:nobodyさん
 06/01/11 18:09:12 
　　　　　　＿＿＿＿＿_　　　　　　 ＿＿＿＿＿＿ 
　　　　　r'　,v^v^v^v^v^il　　　　／　　　　　　　　　　ヽ 
　　　　　l　/ jニﾆｺ　iﾆニ!.　　 /　　ジ　　き　　ぼ　　　l 
　　　　i~^'　 fｴ:ｴi　 fｴｴ)Fi　　!　　　ｬ　　れ　　く　　　 l 
　　　　ヽr　　　　　 ＞ 　 V　　!　　 イ　　い　　は　　　l 
　　　　　l　　　!ー―‐r　　l　＜.　　 ア　　な　　　　　　 l 
　__,.r-‐人　　 ｀ー―'　　ﾉ＿　ヽ　　ン　　　　　　　　　/ 
ノ 　 !　!　　ﾞｰ‐--￣--‐'"ハ ~^i ＼＿　　　　　　 ＿ノ 
　ヽ　!　ヽ､＿　　　　 ＿.ノ　 i　 ＼　　 ￣￣￣￣ 
ヾV /　　　　　　　　　　　　　 ! ／.入

888:nobodyさん
 06/01/23 18:41:58 
renameでロックをしてみました。どうでしょうか？ 
　　$nowsec=time; 
　　$lockname="./lock/lock_".$nowsec; 
　　$basename="./lock/lock"; 
　　while (1){ 
　　if (rename $basename,$lockname){&process()}; 
　　$n++; 
　　if ($n>=5){&error()}; 
　　sleep 1; 
　　}; 
　　opendir (LOCKDIR,lock); 
　　@filelist=readdir(LOCKDIR); 
　　closedir(LOCKDIR); 
　　foreach $filename (@filelist) { 
　　if ($filename=~/_/) { 
　　($dest,$locktime)=split(/_/,$filename,2); 
　　　　unless ($locktime==$nowsec){ 
　　　　$timedif=$nowsec-$locktime; 
　　　　　　if ($timedif>=5){ 
　　　　　　rename $filename,$lockname; 
　　　　　　}; 
　　　　}; 
　　}; 
sub process{ 
　　&backname() 
} 
sub backname{ 
　　rename $lockname,$filename; 
}

次ページ