The Subscriber using ZMQx::Class
file: bin/zmqx_subscriber.pl
1: #!/usr/bin/env perl
2: use 5.016;
3: use ZMQx::Class;
4: use ZMQx::Class::AnyEvent;
5:
6: my $subscriber = ZMQx::Class->socket('SUB', connect=>'tcp://localhost:10001');
7: $subscriber->set_subscribe($ARGV[0] || '' );
8: my $fh = $subscriber->get_fh;
9:
10: my $w = ZMQx::Class::AnyEvent->watcher( $subscriber, sub {
11: while (my $message = $subscriber->receive_multipart) {
12: printf("artist %s released song %s on %s\n",
13: $message->[1], $message->[3], $message->[2]
14: );
15: }
16: });
17: AnyEvent->condvar->recv;