Hi,

gibt es eine Moeglichkeit zu testen ob in STDIN was drin ist, bevor ich anfange daraus zu lesen?

by, Martin

Sag mal in welchem Bezug.
Als Benutzereingabe, Teil einer Pipe?

Gruß Alex

Davon weiss ich nichts. Aber wo liegt das Problem dabei, nach dem ersten Lesen auf Erfolg zu prüfen und ggf. abzubrechen?

Prüfen iss net.
Entweder will dein Programm was von STDIN oder nicht.
Wenns was von STDIN will, wartet es solange bis was mit \n bestätigt kommt.

Gruß Alex

[quote=format_c,29.09.2003, 12:40]Wenns was von STDIN will, wartet es solange bis was mit \n bestätigt kommt.[/quote]
> Wenns was von STDIN will, wartet es solange bis was mit \n bestätigt kommt.

Ja, das ist ebend das Problem.

Mein Programm bekommt eine Mail per STDIN uebergeben. Fuer den Fall das keine Mail kommt soll es mit einem Fehler abbrechen. Oder kann ich irgendwie ein Timeout einbauen? Wenn er nach 1 minute nix bekommen hat, dann abbrechen?!

by, Martin

Das stimmt natürlich. Einfaches Lesen führt unter Umständen zur Blockierung.

Dafür gibt's die "select" Funktion: perldoc -f select

Oder noch hübscher: IO::Select. Da kann man dann can_read abfragen.

Weiss nicht ob es in deinem Fall funktioniert ... aber auf normaler Kommandozeilenebene gibts das Array @ARGV
könntest dann einfach so prüfen:
if ( @ARGV > 0 ) { }

In @ARGV stehen aber nur die Argumente drin die ich dem Programm uebergeben habe. Das was ueber STDIN an das Programm gesendet wird steht dort nicht drin. Mein Programm wird folgendermassen aufgerufen
Ich schau mir mal select und IO::Select an.

by, Martin

Die Frage ist, was genau Du mit "drin ist" meinst. Wenn STDIN vom Terminal kommt, ist immer was "drin", bis jemand Strg-D (bzw Strg-Z auf einigen Betriebssystemen) drueckt. Wenn allerdings _wirklich_ nix drin ist kannst Du es mit eof testen:

OK, fuer alle die es interessiert, so mach ich das nun:


by & und Danke nochmal fuer den Hinweis auf IO::Select, Martin