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: }