Peter Kaufmann: ÜBerschreiben der Ausgabe

Beitrag lesen

Hallo Jochen,

ich würde gerne eine Ausgabe immer wieder überschreiben.
Bsp:
print "Hallo 1";
print "Hallo 2";

$| = 1;
print "Hallo 1";
sleep (3);
print "\rHallo 2";

Das zweite print schreibt ein carriage return in die Ausgabe, so daß der "Cursor" zum Anfang der Zeile zurückspringt und die erste Ausgabe überschreibt. Allerdings muß die Ausgabe des zweiten print mindestens genau so lang wie die erste sein (eventuell mit Leerzeichen auffüllen).
Um die Ausgabe direkt (d.h. auch ohne Newline) ausgegeben zu lassen, wird zu Beginn die Pufferung mit $| = 1 abgeschaltet.

Grüße,

Peter