リアルタイムチャット (Mojolicious::Lite) / Mojoliciousサンプル - Perl入門ゼミ

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

[mfham]

動いた！