scripts/mqr-publish.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 use AnyEvent::Redis;
   5
   6 our ( $redis_host, $redis_port );
   7 require 'config.pl';
   8
   9 my $pub = AnyEvent::Redis->new( host => $redis_host, port => $redis_port );
  10
  11 $pub->publish("test.1" => $ARGV[0])->recv;
  12
  13 AnyEvent->condvar->recv;
  14