| Current Path : /usr/share/doc/perl-Term-ProgressBar/examples/ |
| Current File : //usr/share/doc/perl-Term-ProgressBar/examples/smooth_bar.pl |
#!/usr/bin/perl
use strict;
use warnings;
use Term::ProgressBar 2.00;
my $max = shift || 100;
my $progress = Term::ProgressBar->new($max);
for (0..$max) {
my $is_power = 0;
for(my $i = 0; 2**$i <= $_; $i++) {
$is_power = 1
if 2**$i == $_;
}
$progress->update($_)
}