REQ-REP Hello World
file: bin/raw_req_rep_hello_world_server.pl 1: #!/usr/bin/env perl 2: use 5.016; 3: use ZMQ::LibZMQ3; 4: use ZMQ::Constants qw(ZMQ_REP ZMQ_POLLIN); 5: 6: my $context = zmq_init(); 7: my $server = zmq_socket($context, ZMQ_REP); 8: zmq_bind($server, 'tcp://*:10001'); 9: 10: while (1) { 11: zmq_poll([{ 12: socket => $server, 13: events => ZMQ_POLLIN, 14: callback => sub { 15: my $msg = zmq_msg_data(zmq_recvmsg($server)); 16: say "server got >$msg<"; 17: zmq_send( $server, "Hello $msg!" ); 18: say "replied with >Hello $msg!<"; 19: } 20: }]); 21: }
That's it for the server