Сух*_*й27 6 perl websocket mojolicious
在我对websocket echo服务器运行客户端后,它会在大约半分钟后与WebSocket closed with status 1006消息断开连接.
请建议如何避免此类行为(浏览器客户端似乎没有受到影响)
use 5.20.0;
use Mojo::UserAgent;
use Mojo::IOLoop;
sub ws_connect {
state $ua;
say "Connecting..";
$ua = Mojo::UserAgent->new;
$ua->websocket('ws://127.0.0.1:3000/echo' => \&onConnect);
}
sub onConnect {
my ($ua, $tx) = @_;
if (!$tx->is_websocket) {
say 'WebSocket handshake failed!';
}
say "Connected!";
$tx->on(finish => sub {
my ($tx, $code) = @_;
say "WebSocket closed with status $code";
});
}
ws_connect();
Mojo::IOLoop->start;
Run Code Online (Sandbox Code Playgroud)
回声服务器
use Mojolicious::Lite;
use Mojo::EventEmitter;
helper events => sub { state $events = Mojo::EventEmitter->new };
# get '/' => 'chat';
websocket '/echo' => sub {
my $c = shift;
$c->inactivity_timeout(3600);
# Forward messages from the browser
$c->on(message => sub { shift->events->emit(mojochat => shift) });
# Forward messages to the browser
my $cb = $c->events->on(mojochat => sub { $c->send(pop) });
$c->on(finish => sub { shift->events->unsubscribe(mojochat => $cb) });
};
app->start;
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
685 次 |
| 最近记录: |