The Publisher using ZMQx::Class
file: bin/zmqx_publisher.pl @c3e99e4d
1: #!/usr/bin/env perl
2: use 5.016;
3: use ZMQx::Class;
4: use AnyEvent;
5:
6: my $publisher = ZMQx::Class->socket('PUB', bind=>'tcp://*:10001');
7:
8: say "Collect MP3 filenames";
9: my $data = get_mp3_data();
10:
11: say "Start publishing messages";
12: my $w = AnyEvent->timer(after => 1, interval => 0.1, cb => sub {
13: my $message = $data->[rand(@$data)];
14: $publisher->send($message);
15: });
16: AnyEvent->condvar->recv;