06/08/30 15:34:33
>>618
例えばlockファイルを使う。perldoc -q lock
use Fcntl qw(:DEFAULT :flock);
sysopen(LCK, "/tmp/lockfile", O_WRONLY|O_CREAT) or die "open: $!\n";
flock(LCK, LOCK_EX|LOCK_NB) or die "flock: $!\n";
sleep 100;
06/08/30 15:34:33
>>618
例えばlockファイルを使う。perldoc -q lock
use Fcntl qw(:DEFAULT :flock);
sysopen(LCK, "/tmp/lockfile", O_WRONLY|O_CREAT) or die "open: $!\n";
flock(LCK, LOCK_EX|LOCK_NB) or die "flock: $!\n";
sleep 100;