Neue Shell per Shell oder Perl öffnen - #121614 (Linux)

nepos

2009-05-15 13:42

User since
2005-08-17
1420 Artikel
BenutzerIn

So z.B.:

Code (perl): (dl )

#!/usr/bin/perl 
use strict;
use warnings;
use IO::Handle;

STDOUT->autoflush(1);

foreach my $num (0 .. 10) {
    print "\rCount: $num";
    sleep(1);
}

Durch das \r wird vor jeder Ausgabe immer an den Zeilenanfang gesprungen. Das autoflush brauchts, weil Perl sonst wartet, bis ein \n ausgegeben wird bzw. das Skript zu Ende ist.