Help for this page

Select Code to Download

Select or download this

[jps@secanaws jps]$ perl ipc-write.pl
Can't call method "pack" on an undefined value at /usr/lib/perl5/5.6.1
+/i386-linux/IPC/Msg.pm line 78.

Select or download this

#!/usr/bin/perl

...
while ($msg->rcv($buf,256, $msgtype, IPC_NOWAIT)) {
  print "$buf\n";
}