Thread IO::Socket Frage, Timeout bei DSL Zwangstrennung? (8 answers)
Opened by monti at 2012-02-27 17:03

monti
 2012-02-27 17:03
#156457 #156457
User since
2011-08-05
57 Artikel
BenutzerIn
[default_avatar]
Hallo zusammen,

habe ein kleines Testskript erstellt in dem ich mit

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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)

View full thread IO::Socket Frage, Timeout bei DSL Zwangstrennung?