>>91
＞&lock1 および &lock2
これのことでしょうか？

sub menberlock1 {
if ($lockkey) {
local($lock_flag) = 0;
foreach (1 .. 5) {
if (-e $menberlockfile) { sleep(1); }
else {
open(LOCK, ">$menberlockfile");
close(LOCK);
$lock_flag = 1;
last;
}
}
if ($lock_flag == 0) {
&error("アクセスが集中しています");
}
}
}

sub menberlock2 { if (-e $menberlockfile) { unlink $menberlockfile; } }


>>90>>91>>92 さん。
本当に感謝です。涙