Hallo zusammen,
habe ein kleines Testskript erstellt in dem ich mit
my $server = IO::Socket::INET->new(
LocalPort => $tcpport,
Proto => 'tcp',
Listen => 1,
Reuse => 1,
#Timeout => 5,
);
die "Could not create socket: $!\n" unless $server;
while (my $client = $server->accept()) {
while(<$client>) {
print $_;
}
close($client);
}
Eingaben von einem tcp port lese, das funktioniert soweit einwandfrei.
Wenn mir jetzt allerdings Server- oder Clientseitig die Verbindung wegbricht (24h DSL Zwangstrennung zb) dann "merkt" es das Skript nicht. Netstat zeigt mir weiterhin ein "VERBUNDEN" auf der alten IP Adresse an.
Hat da jemand eine Idee wie ich das Problem lösen könnte? Ich würde das gerne erkennen und die nicht mehr funktionsfähige Verbindung beenden. Das Skript soll dann quasi wieder in den Urzustand wechseln und auf eingehende Verbindungen warten.
thx!
Grüße
modedit Editiert von pq: tags IO::Socket::INET und perl5 hinzugefügt
Last edited: 2012-02-27 17:12:46 +0100 (CET)