| Current Path : /var/www/web-klick.de/dsh/90_akt/PPLTest.old/ |
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/90_akt/PPLTest.old/pserver.pl |
use IO::Socket;
my $server_socket = IO::Socket::INET->new(
'Type' => SOCK_STREAM,
'Listen' => SOMAXCONN,
'ReuseAddr' => 1,
'LocalAddr' => 'localhost',
'LocalPort' => '1234',
'Proto' => 'tcp')->accept();
$sserver_socket->recv($o1,10);
print $server_socket "$o1\n";
$server_socket->recv($o1,5);
print $server_socket "$o1\n";
$server_socket->shutdown(2);