I am sure there are modules that can do the graph for you, but to print something in the same place on the screen, you should be able to use Curses.

For more information: perldoc -q "How do I do fancy stuff with the keyboard/screen/mouse?"

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

[---+---|---+---|---+---|---+---]  0%
[XXX+---|---+---|---+---|---+---] 10%
[XXXXXXXXXXXX---|---+---|---+---] 37%
[XXXXXXXXXXXXXXXX---+---|---+---] 50%
[XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX-] 97%
[download]

--t. alex

"Excellent. Release the hounds." -- Monty Burns.

Many thanks Ovid and talexb for 2 helpful replies.

After some thought I have gone for the Curses option, (a good excuse to learn Curses ?).

A quick attempt at the %age worked well, and once I spotted the endwin() function I was happy.

There does, however, seem to be a lack of perl-specific-Curses documentation...

Thanks again
jrm

use Tk;

sub tick;

$MYBUILDDIR="c:\\build"; #Dont forget to backslash the backslashes

$total_objects = 303; #Number of object files a full build would creat
+e
$progressbar_width = 2*$total_objects;
$progressbar_height = 50;
$timer_interval=10; #in seconds

$MW = MainWindow->new;
$MW->bind('<Control-c>' => \&exit);
$MW->bind('<Control-q>' => \&exit);

$canvas1 = $MW->Canvas(
  '-width' => $progressbar_width,
  -height => $progressbar_height,
  -background => 'black'
) -> pack;
$newval = 10;

$start = $MW->Button(
    -text         => 'Start', 
    -command      => sub {tick},
);

$start->pack(-side => 'left', -fill => 'both', -expand => 'yes');

sub tick {
    # Update the counter every 5 seconds
    $MW->after($timer_interval * 1000, \&tick);
    $num_objs = @objects = glob($MYBUILDIR . "*.o");
    print "\n$num_objs out of $total_objects built so far...";
    $newval = ($num_objs / $total_objects)*$progressbar_width;
    $canvas1->create ('rectangle','0','0',$newval,$progressbar_height,
+-fill=>'red');
} 

MainLoop;
[download]

Oops, I posted anonymously by mistaked. Oh well, no biggy.
=~Desertcoder