mirror of
https://github.com/git-learning-game/oh-my-git.git
synced 2024-12-22 20:32:38 +01:00
24 lines
509 B
Text
24 lines
509 B
Text
|
#!/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 äöü!";
|
||
|
|
|
||
|
|
$socket->send(chr(length($s)));
|
||
|
|
$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();
|
||
|
|
}
|