projects
/
perl-Redis.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6fd91ba
)
simple publish script for testing
redis2.0
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 28 Aug 2010 19:43:25 +0000
(21:43 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 28 Aug 2010 19:43:25 +0000
(21:43 +0200)
scripts/publish.pl
[new file with mode: 0755]
patch
|
blob
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> ";
+}
+