semget不好使,请问如何解决？

goodier

我在骆驼书上抄来的代码，运行后在die步停止，请问如何解决？
           $IPC_KEY = 1234;
           $IPC_RMID = 0;
           $IPC_CREATE = 0001000;
           $key = semget($IPC_KEY, $nsems , 0666 | $IPC_CREATE );
           die if !defined($key);
           print "$key\n";
操作系统是：tru64
$ERROR是空。
thks

apile

require "ipc.ph";
require "sem.ph";
$IPC_KEY = 1234;
$IPC_RMID = 0;
$IPC_CREATE = 0001000;
$key = semget($IPC_KEY, $nsems , 0666 | $IPC_CREATE );
die "$@\n" if $@;

再試試看吧...看看Error是什麼..
semget只有在支援System V IPC的機器上才有用...
=item semget KEY,NSEMS,FLAGS

Calls the System V IPC function semget.  Returns the semaphore id, or
the undefined value if there is an error.  See also C<IPC::SysV>; and
C<IPC::SysV::Semaphore>; documentation.