Opened by Gast at 2004-03-03 03:45
User since
2003-08-11
457 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
457 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
$|++;
my $len;
foreach my $digit (1..20) {
$len = length $digit;
print $digit;
sleep 1;
print "\b" x $len;
}
Mit print "\b" x $len; gehst du $len Zeichen zurueck, also vorher die laenge der Ausgabe holen um spaeter die Anzahl Zeichen zu haben die man zurueckgehen muss.
Grusz Christian.
,,Das perlt aber heute wieder...'' -- Dittsche