WebSocket in HTTP - #195436 (Netzwerkprogrammierung und Netzwerke mit Perl)

rosti

2023-11-07 11:04

User since
2011-03-19
3219 Artikel
BenutzerIn

2023-11-07T09:56:36 bianca
2023-11-06T18:17:19 rosti
Ziel ist ein Chat, hier die Demoversion:
http://rolfrost.de/wschat.html
Wie sieht denn das Perl davon aus?

Es gibt kein Perl in dieser DEMO. Das WebSocket wird vom Browser(JS) an einem öffentlichen WebSocket-Server hergestellt.

Code: (dl )

var ws = new WebSocket("wss://ws.postman-echo.com/raw");

Nur sendet dieser Server die Response nicht als Broadcast an alle die mit ihm verbunden sind sondern nur an diesen einen Client.

Untenstehend ein WebSocket-Server in Perl

Code (perl): (dl )

#!/usr/bin/perl

# Websocket Broadcast Server
use Net::WebSocket::Server;
use POSIX qw(strftime);

my $port = 443;
$| = 1;
print "Listen on $port\n";

Net::WebSocket::Server->new(
    listen => $port,
    on_connect => sub {
        my ($serv, $conn) = @_;
        $conn->on(
            handshake => sub {
                my ($conn, $handshake) = @_;
                print "handshake: @_\n";
            },
            utf8 => sub {
                my ($conn, $msg) = @_;
                $_->send_utf8(strftime("%X", localtime(time))."\0".$msg) for $conn->server->connections;
                print "utf8: $msg\n";
            },
            binary => sub {
                my ($conn, $msg) = @_;
                $_->send_binary($msg) for $conn->server->connections;
                print "binary: $msg\n";
            },
        );
    },
)->start;

Einfach auf der Konsole starten.
Im Browser ws = new WebSocket("wss://localhost:443");

.