ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch4/semop

Text File | 1992-10-18 | 133 b | 5 lines

require "ipc.ph";
require "sem.ph";
$semop = pack("s*", $semnum, -1, 0);
die "Semaphore trouble: $!\n" unless semop($semid, $semop);