Am Mon, 20 Feb 2012 18:10:12 +0100
schrieb Stefan König
David Haller schrieb:
Hallo,
Am Thu, 16 Feb 2012, Stefan König schrieb:
ich habe aktuell ein Problem mit einem Perl Skript, das via tcp port trigger von xinetd gestartet wird und dann über STDIN/STDOUT Daten empfäng und sendet. Wenn auf der Gegenseite der Sender "wegbricht" (DSL Zwangstrennung zB), dann würde ich das im Perl skript gerne erkennen und es beenden. Hat da jemand eine Idee wie ich das lösen kann ohne in Perl komplett alles auf Sockets umzustellen?
perldoc -f eof
HTH, -dnh
Danke für den Tip, hat leider nicht funktioniert. Andere Ideen wie ich aus einer while (<STDIN>) Schleife rauskomme wenn mir der Gegenpart wegbricht? Habe es auch mal mit einem last unless defined; und last unless !eof(); versucht, tut auch nichts.
Ich keine deine while Schleife nicht, aber versuche es doch mal mit perldoc -f undef, irgendetwas wie while(){ do domething; undef $/; } Üblicherweise ist Perl intelligent genug, selbst zu erkennen, wenn eine Netzwerkverbindung nicht mehr besteht. -Dieter -- Dieter Klünter | Systemberatung http://dkluenter.de GPG Key ID:DA147B05 53°37'09,95"N 10°08'02,42"E -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um den Listen Administrator zu erreichen, schicken Sie eine Mail an: opensuse-de+owner@opensuse.org