[zeromq-dev] Perl: zmq_poll

[Pedro Melo]

Hi,

On Fri, Dec 28, 2012 at 4:51 PM, Nishant Mittal <nmittal at rblt.com> wrote:
> Thanks Pedro, problem is that my sockets are in an array and I am building
> the poll items in a loop
>
> my @p;
> for (my $i=0; $i<6; $i++) {
>    push(@p, {
>             socket  => $skt[$i],
>             events  => ZMQ_POLLIN,
>             callback => sub {
>                 warn "Process task";
>             }
>         });
> }
> zmq_poll(\@p);

my @p;
for (my $i=0; $i<6; $i++) {
   my $sock = $skt[$i];
   my $idx = $i;
   push(@p, {
            socket  => $sock,
            events  => ZMQ_POLLIN,
            callback => sub {
                warn "Process task";
                ## use $sock here, be happy!
                ## also $idx is the index for this socket
            }
        });
}
zmq_poll(\@p);

Bye,
-- 
Pedro Melo
@pedromelo
http://www.simplicidade.org/
http://about.me/melo
xmpp:melo at simplicidade.org
mailto:melo at simplicidade.org