Re^2: wget style progress bar

I'm not sure what you're asking for. This, perhaps?

sub foo {
    open my $fh, ">", "file";
    foreach (1..200){
        print OUT "HelloWorld\n";
        print progress_bar($_, 200, 25, '=');
    }
    sleep 1; 
}
[download]

Makeshifts last the longest.

Comment on Re^2: wget style progress bar Download Code

Replies are listed 'Best First'.
Re: Re^2: wget style progress bar by artist (Parson) on Mar 17, 2003 at 00:06 UTC
Almost similar, but I am looking for functionality where I can call and mesure the progress for the routine as it is executed. So the line 'print progress_bar' should be outside the 'foo' here. I should have independent way of measuring the progress of the subroutine. I guess the only way to achive that is to implement the call back routines or implement threads . artist	[reply]