You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
321 B
16 lines
321 B
#!/usr/bin/perl
|
|
use Net::WebSocket::Server;
|
|
|
|
Net::WebSocket::Server->new(
|
|
listen => 8080,
|
|
on_connect => sub {
|
|
my ($serv, $conn) = @_;
|
|
$conn->on(
|
|
utf8 => sub {
|
|
my ($conn, $msg) = @_;
|
|
$conn->send_utf8($msg);
|
|
},
|
|
);
|
|
},
|
|
)->start;
|
|
1;
|