simple publish script for testing

[perl-Redis.git] / scripts / publish.pl

diff --git a/scripts/publish.pl b/scripts/publish.pl
new file mode 100755 (executable)
index 0000000..5c38d55
--- /dev/null
+++ b/scripts/publish.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use Redis;
+
+my $pub = Redis->new();
+
+my $channel = $ARGV[0] || die "usage: $0 channel\n";
+
+print "#$channel > ";
+while(<STDIN>) {
+       chomp;
+       $channel = $1 if s/\s*\#(\w+)\s*//; # remove channel from message
+       my $nr = $pub->publish( $channel, $_ );
+       print "#$channel $nr> ";
+}
+