Help for this page
my $bar = ProgressBar->new( width => 40 );
$bar->draw( 3, 10 );
============ 30%
#!/usr/bin/perl -w ... do { $pb->draw( $_ ) ; sleep 1 } for 0 .. 10; do { $pb->draw( 9 - $_ ); sleep 1 } for 0 .. 9; print "\n";
www.com | www.net | www.org
No recent polls found