Hallo!

Wie kann ich nach einem print-Befehl nach STDOUT in Perl sagen, dass zusätzlich "geflusht" werden soll?

Vielen Dank im Voraus!

Hi,

Du kannst die Variable $| auf ungleich Null setzen, dann findet eine ungepufferte Ausgabe statt.



perlvar

Vielen Dank!

Habe ich das richtig verstanden, dass der Befehl am Anfang eines Skripts gesetzt wird und dann global für das ganze Programm gilt?

Ja, das hast du meines Wissens nach richtig verstanden...
Wenn du das Puffern wiederhaben moechtest setzt du die Variable einfach 0:


MfG

Wenn du das Flushen nur lokal haben willst, dann kannst du innerhalb eines Blockes ("{...}") den Wert mit "local $|=1;" setzen. Wenn der Block dann verlassen wird, hast du die globale Einstellung wieder.

[quote=Linuxer,16.07.2006, 08:47][...] Du kannst die Variable $| auf ungleich Null setzen, dann findet eine ungepufferte Ausgabe statt. [...][/quote]
Genau genommen ist die normale Ausgabe bei Perl, zum Beispiel mittels print, immer gepuffert, egal wie $| gesetzt ist und die Ausgabe über syswrite ist immer ungepuffert.

$| auf einen Wert ungleich 0 zu setzen hat nur den Effekt, dass die Puffer nach jeder Schreiboperation geleert werden, was in etwa auf das gleiche wie eine ungepufferte Ausgabe hinausläuft, aber eben nur in etwa.

Übrigens kann man, wenn man nur gelegentlich die Ausgabepuffer leeren möchte statt autoflush auch die Methode flush aus dem IO::Handle Paket verwenden.

[edit: Tippfehler korrigiert]\n\n

<!--EDIT|murphy|1153059080-->

ahh... danke

wenn dir das kryptische $| nicht gefaellt, kannst du auch mit

arbeiten (siehe IO::Handle).