お前らのデスクトップを晒してくださいinFF・DQ板

＞＞３３８
（ ・３・）エェー
じゃつけかた教えてYO−！

##################################################
#####☆(08)ロックファイル（open関数）☆###########
##################################################
sub lock2 {
foreach $lockfiles (@lockfile){
local($flag) = 0;
foreach (1 .. 10) {
if (-e $lockfiles) { sleep(1); }
else {
open(LOCK,">$lockfiles") || &error("Write Error : $lockfiles","lock");
close(LOCK);
$flag = 1;
last;
}
}
if ($flag == 0) { &error("LOCK is BUSY","lock"); }
}
}