質問･雑談スレ323＠運用情報板

$ perl -e 'use IPC::SysV qw(ftok IPC_CREAT IPC_EXCL IPC_NOWAIT SEM_R SEM_A SEM_UNDO);use IPC::Semaphore;($a,$b)=ftok("../eq",1);if($b=new IPC::Semaphore($a,1,IPC_CREAT|IPC_EXCL|SEM_R|SEM_A)){print "1\n"}if($b){$b->remove;}'
$ perl -e 'use IPC::SysV qw(ftok IPC_CREAT IPC_EXCL IPC_NOWAIT SEM_R SEM_A SEM_UNDO);use IPC::Semaphore;($a,$b)=ftok("../eq",1);if($b=new IPC::Semaphore($a,0,SEM_R|SEM_A)){print "1\n"}if($b){$b->remove;}'
1
$ perl -e 'use IPC::SysV qw(ftok IPC_CREAT IPC_EXCL IPC_NOWAIT SEM_R SEM_A SEM_UNDO);use IPC::Semaphore;($a,$b)=ftok("../eq",1);if($b=new IPC::Semaphore($a,0,SEM_R|SEM_A)){print "1\n"}if($b){$b->remove;}'
$ perl -e 'use IPC::SysV qw(ftok IPC_CREAT IPC_EXCL IPC_NOWAIT SEM_R SEM_A SEM_UNDO);use IPC::Semaphore;($a,$b)=ftok("../eq",1);if($b=new IPC::Semaphore($a,1,IPC_CREAT|IPC_EXCL|SEM_R|SEM_A)){print "1\n"}if($b){$b->remove;}'
1
$ perl -e 'use IPC::SysV qw(ftok IPC_CREAT IPC_EXCL IPC_NOWAIT SEM_R SEM_A SEM_UNDO);use IPC::Semaphore;($a,$b)=ftok("../eq",1);if($b=new IPC::Semaphore($a,1,IPC_CREAT|IPC_EXCL|SEM_R|SEM_A)){print "1\n"}if($b){$b->remove;}'
1
$ echo -n endless > lastbbs.txt

んじゃ。