comment on

Unfortunately, it fails. Given the code below, I get

[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.
[download]

If I remove the set call, everything seems to work except the queue being too small. What am I missing?

#!/usr/bin/perl

use IPC::SysV 
  qw(IPC_PRIVATE IPC_CREAT IPC_NOWAIT);
use IPC::Msg;
use Data::Dumper;

use strict;
use warnings;

my $msgtype = 1;
my $message = "hello nr ";
my $messages = 2000;
my $buf;

my $msg = new IPC::Msg('24h', IPC_CREAT);

$msg->set('qbytes' => 32768);

for (my $i = 0; $i < $messages; $i++) {
  my $rv = $msg->snd($msgtype, 
                     pack("L a*",$msgtype,$message . $i),
                     IPC_NOWAIT);
  print "rv of $i is $rv\n"
}

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

In reply to Re^2: Resizing IPC::Msg queue size by Jeppe
in thread Resizing IPC::Msg queue size by Jeppe

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Come for the quick hacks, stay for the epiphanies.
	PerlMonks