Redisでpubsubをちょっとだけ試してみる。

追記：出来なかった。2接続以上だと詰まります。

use strict;
use warnings;
use Redis;
use Encode;

my $r = Redis->new(
    host => '127.0.0.1',
    port => 6379,
);

my $app = sub {
    my $env = shift;

    return sub {
        my $respond = shift;
        my $writer = $respond->([200, []]);

        $r->subscribe(
            "test",
            sub {
                my ($message, $topic, $subscribed_topic) = @_;
                $writer->write(encode_utf8 "$message\n");
            },
        );
        $r->wait_for_messages() while 1;
    };
};

twiggy app.psgi

curl http://localhost/

redis-cli publish "test" "ウェーイ"

テキスト文字列渡したらエラーが出る。
リアルタイムにあれこれみたいなの、これで出来そう。