| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Server/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Server/server.pl |
use IO::Socket::INET;
my $server_socket = IO::Socket::INET->new(
'Type' => SOCK_STREAM,
'Listen' => SOMAXCONN,
'LocalAddr' => '127.0.0.1',
'LocalPort' => '1235',
'Proto' => 'tcp' );
while (0 == 0) {
my $sock = $server_socket->accept();
my $text = <$sock>;
print $text;
print $sock "Ping: " . $text . "\n";
# shutdown($server_socket,2);
}