Perl › Mojolicious WebSocketを使ったリアルタイムチャットのサンプルです。複数の画面を開いても他の画面に書き込みがすぐに反映されます。 ソースコード use strict; use warnings; use Mojolicious::Lite; my $clients = {}; websocket '/' => sub { my $self = shift; # Client id my $cid = "$self"; # Resist controller $clients->{$cid}{controller} = $self; # Receive message $self->on('message' => sub { my ($self, $message) = @_; # Send message to all clients foreach my
![リアルタイムチャット (Mojolicious::Lite) / Mojoliciousサンプル - Perl入門ゼミ](https://cdn-ak-scissors.b.st-hatena.com/image/square/ec32daa10d85267ab5e1c212b1072f0c69faf65e/height=288;version=1;width=512/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fp%2Fperlcodesample%2F20100418%2F20100418234248.png)