Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 20 lines (15 sloc) 0.328 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
#!/usr/bin/env perl

use warnings;
use strict;

use ZmqSocket;
use ZeroMQ::Raw::Constants qw(ZMQ_PUB);

my $s = ZmqSocket->new(
socket_type => ZMQ_PUB,
endpoints => [ 'tcp://127.0.0.1:12345' ],
);

my $i = 0;
while (1) {
my $scalar = "debug: message " . ++$i;
print "$scalar = ", $s->send_scalar($scalar), "\n";
sleep 1;
}
Something went wrong with that request. Please try again.