Help for this page

Select Code to Download


  1. or download this
        my $bar = ProgressBar->new( width => 40 );
  2. or download this
        $bar->draw( 3, 10 );
  3. or download this
        ============                              30%
  4. or download this
    #!/usr/bin/perl -w

...
do { $pb->draw( $_ )    ; sleep 1 } for 0 .. 10;
do { $pb->draw( 9 - $_ ); sleep 1 } for 0 ..  9;
print "\n";