This is not the most elegant solution, but it did only take me five minutes.
The salient part is the backspace and printing blanks bit. A more elegent
solution would figure out how to destructively clear the line using something
from ncurses.
#!/usr/bin/perl -w
$|=1;
@reports = ("starting", "now we're cooking", "Almost half!", "Over the hump",
"Almost done!", "Finito!");
#print @reports;
foreach $item (@reports)
{
print $item;
sleep 1;
print "\b" x length($item);
print ' ' x length($item);
print "\b" x length($item);
}
--
Music so wishes to be heard that it calls on some to give it voice and some to
give it ears.
http://www.hacksaw.org -- http://www.privatecircus.com -- KB1FVD
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
