PUB-SUB with multipart messages
file: bin/anyevent_subscriber.pl 13: my $w = AnyEvent->io( 14: fh => $fh, 15: poll => "r", 16: cb => sub { 17: my @parts; 18: while ( my $rmsg = zmq_recvmsg( $subscriber)) { 19: push (@parts,zmq_msg_data( $rmsg )); 20: if (!zmq_getsockopt($subscriber, ZMQ_RCVMORE)) { 21: say "artist $parts[1] released song $parts[3] on $parts[2]"; 22: @parts=(); 23: } 24: } 25: }, 26: );
and use zmq_msg_data() to store this part in an array