eg/simple_use.pl

   1 #!/usr/bin/perl\r
   2 use strict;\r
   3 use warnings;\r
   4 \r
   5 use Term::ProgressBar 2.00;\r
   6 \r
   7 use constant MAX => 100_000;\r
   8 \r
   9 my $progress = Term::ProgressBar->new(MAX);\r
  10 \r
  11 for (0..MAX) {\r
  12   my $is_power = 0;\r
  13   for(my $i = 0; 2**$i <= $_; $i++) {\r
  14     $is_power = 1\r
  15       if 2**$i == $_;\r
  16   }\r
  17 \r
  18   if ( $is_power ) {\r
  19     $progress->update($_);\r
  20   }\r
  21 }\r