in reply to Re: Re: Re: IPC Message Queues with IPC_NOWAIT
in thread IPC Message Queues with IPC_NOWAIT

This is FreeBSD 5.1, perl 5.6.1. 
use IPC::SysV qw(IPC_PRIVATE IPC_CREAT S_IRWXU);

$id = msgget(4335, IPC_CREAT | S_IRWXU);

$go = 1;

while($go){

        if(msgrcv($id, $rcvd, 512, 0, IPC_NOWAIT)){
                ($typ_rcvd, $rcvdData) = unpack("l! a*", $rcvd);
                print "Got------>$rcvdData\n";
        }
print "Wait\n";
sleep 1;
}

[download]
Thanks for your help.

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: IPC Message Queues with IPC_NOWAIT
by waswas-fng (Curate) on Dec 09, 2003 at 20:57 UTC
    Where do you think you were setting IPC_NOWAIT from? try using strict. 
    use IPC::SysV qw(IPC_PRIVATE IPC_CREAT S_IRWXU IPC_NOWAIT);

$id = msgget(4335, IPC_CREAT | S_IRWXU);

$go = 1;

while($go){

        if(msgrcv($id, $rcvd, 512, 0, IPC_NOWAIT)){
                ($typ_rcvd, $rcvdData) = unpack("l! a*", $rcvd);
                print "Got------>$rcvdData\n";
        }
print "Wait\n";
sleep 1;
}

    [download]


    -Waswas
[reply]
[d/l]
      DUH!!! You are the man. Appreciate the help and I'm going to go hide in shame. Thanks again.
[reply]

In Section Seekers of Perl Wisdom