That doesn't work because \b will bring the "cursor" back, and not delete 
characters. So what you want is

$| = 1; #Autoflush
my $text = "Test";
print $text;
sleep 2;
print "\b \b" x length($text);
print "OK";

In a message dated 2/23/2004 11:44:35 AM Eastern Standard Time, 
[EMAIL PROTECTED] writes:
$| = 1; #Autoflush

my $text = "Test";
print $text;
sleep 2;
print "\b" x length($text);
print "OK";



-Will
-----------------------------------
Handy Yet Cryptic Code. 
Just to Look Cool to Look at and try to decipher without running it.

Windows
perl -e "printf qq.%3i\x20\x3d\x20\x27%c\x27\x09.,$_,$_ for 0x20..0x7e"

Unix
perl -e 'printf qq.%3i\x20\x3d\x20\x27%c\x27%7c.,$_,$_,0x20 for 0x20..0x7e'

Reply via email to