Perlでリクに答えるスクリプトを作るスレ

Perlでリクに答えるス ..

619:デフォルトの名無しさん
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;

次ページ