oh-my-git/scripts/net-test

25 lines
547 B
Text
Raw Permalink Normal View History

2020-09-15 09:30:19 +02:00
#!/usr/bin/env perl
use IO::Socket;
$socket = IO::Socket::INET->new(PeerAddr => "127.0.0.1",
PeerPort => 6666,
Proto => "tcp",
Type => SOCK_STREAM);
$s = "Hey äöü!";
my $send_length = pack("L", length($s));
$socket->send($send_length);
2020-09-15 09:30:19 +02:00
$socket->send($s);
while(true) {
my $len;
$socket->recv($len, 4);
my $actual_len = unpack("L", $len);
my $s2;
$socket->recv($s2, ord($len));
print($s2);
STDOUT->flush();
}