読者です 読者をやめる 読者になる 読者になる

パルカワ2

PerlとRubyとイチャラブ

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" "ウェーイ"

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