このページに関してのお問い合わせはこちら
2chの動作報告はここで。 パート26
ツイート
114
:
garnet ★
:
2012/08/18(土) 07:31:49.08 ID:???0
$ perl -e 'use IPC::SysV qw(ftok SEM_R SEM_A);use IPC::Semaphore;open(A,"<","../_service/bbslist.txt");while(<A>){chomp;($a)=ftok("../$_",1);if($b=new IPC::Semaphore($a,0,SEM_R|SEM_A)){$b->remove;print"$_\n"}}close(A);'
netradio
news4vip
こうしてみた。