Perl - Ausgaben an der selben Stelle

[sallo]

Hallo,
ich möchte gerne in der DOS-Box eine Fortschrittsanzeige ausgeben.
Hierzu soll eine Prozentzahl immer an der selben Stelle erscheinen. Die Vorherige Zahl soll quasi überschrieben werden.

Kann mir vielleicht jemand einen Tipp geben, wie dies zu bewerkstelligen ist?



for($i=0; $i<=100; $i++) {
print $i."%"; # Diese Ausgabe soll immer überschrieben werden
}


Danke
sallo

[ninguno]

mit einem carriage return nach jeder prozent ausgabe sollte es gehen:


use FileHandle;
autoflush STDOUT;

for($i=0; $i<=100; $i++) {
print $i."%"; # Diese Ausgabe soll immer überschrieben werden
sleep(1);
print "\r";
}

[sticky bit]

Die einfachste Methode ist der Wagenrücklauf:


for (my $i = 0; $i <= 100; $i++) {
print("\r$i %");
}

Also mit \r gheste halt zurück an Anfang der Zeile (die wird aber nicht gelöscht. Löschen kannst Du Zeichenweise mit \b.
Wenns auch überl Zeilen gehen muss, dann musst Du mit Terminal-Steuerungssequenzen arbeiten, so (n)curses mässig. Gibts sicherlich Module für.

Edit: OK, ich weiss, ich bin zu langsam für dieses Leben... ;):D

[sallo]

Danke, funktioniert einwandfrei :)

sallo