Print a wget style progress bar. Inputs should be self explanatory
do{ print progress_bar( $_, 100, 25, '=' ); sleep 1 } for 1..100; # get a progress bar string, inputs should be self explanatory otherwi +se just RTFS! sub progress_bar { my ( $got, $total, $width, $char ) = @_; $width ||= 25; $char ||= '='; my $num_width = length $total; sprintf "|%-${width}s| Got %${num_width}s bytes of %s (%.2f%%)\r", + $char x (($width-1)*$got/$total). '>', $got, $total, 100*$got/ +$total; } __DATA__ |==========> | Got 42 bytes of 100 (42.00%)
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: wget style progress bar
by morbus (Sexton) on May 28, 2003 at 02:37 UTC | |
Re: wget style progress bar
by ikegami (Patriarch) on Oct 06, 2004 at 02:51 UTC | |
by tachyon (Chancellor) on Oct 06, 2004 at 02:57 UTC | |
Re: wget style progress bar
by artist (Parson) on Mar 16, 2003 at 17:01 UTC | |
by Aristotle (Chancellor) on Mar 16, 2003 at 19:13 UTC | |
by artist (Parson) on Mar 17, 2003 at 00:06 UTC |
Back to
Cool Uses for Perl