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:
9: my $w = ZMQx::Class::AnyEvent->watcher( $subscriber, sub {
10: while (my $message = $subscriber->receive) {
11: printf("artist %s released song %s on %s\n",
12: $message->[1], $message->[3], $message->[2]
13: );
14: }
15: });
16: AnyEvent->condvar->recv;