scripts/mqr-publish.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 use AnyEvent::Redis;
   5
   6 my $pub = AnyEvent::Redis->new( host => $ENV{REDIS_HOST}, port => $ENV{REDIS_PORT} );
   7
   8 $pub->publish("channel test" => $ARGV[0])->recv;
   9
  10 AnyEvent->condvar->recv;
  11