ZMQ::LibZMQ3 and AnyEvent
file: bin/anyevent_req_rep_hello_world_server.pl @c3e99e4d 1: #!/usr/bin/env perl 2: use 5.016; 3: use ZMQ::LibZMQ3; 4: use ZMQ::Constants qw(ZMQ_REP ZMQ_FD); 5: use AnyEvent; 6: 7: my $context = zmq_init(); 8: my $server = zmq_socket($context, ZMQ_REP); 9: zmq_bind($server, 'tcp://*:10001'); 10: my $fd = zmq_getsockopt( $server, ZMQ_FD );
we use ZMQ_FD and zmq_getsockopt() to get the file descriptor representing the socket