in reply to Estimating computation time perl scripts

This is how progress bars work 
my @files = qw/ a b c d e f g/;
my $total_steps = int @files;
my $step = 0;
for my $file ( @files ){
  $step ++;
  print "\rStep $step / $total_steps\n";
  select undef, undef, undef, 0.3;
}
print "Done\n";
__END__
Step 1 / 7
Step 2 / 7
Step 3 / 7
Step 4 / 7
Step 5 / 7
Step 6 / 7
Step 7 / 7
Done

[download]

Replies are listed 'Best First'.
Re^2: Estimating computation time perl scripts
by roboticus (Chancellor) on Dec 27, 2012 at 14:23 UTC

    Close, but it's a bit more like this:

    $ cat t.pl
my @files = qw/ a b c d e f g /;
my $total_steps = int @files;
my $step = 0;
for my $file ( @files ){
  $step ++;

  my $t = rand;
  $t *= 3 while $step / $total_steps - .01 > rand;
  print "$t\n";
  sleep $t;

  print "\rStep $step / $total_steps\n";
  select undef, undef, undef, 0.3;
}
print "Done\n";

$ perl t.pl
0.692567903622152
Step 1 / 7
1.5466213811873
Step 2 / 7
1.80846504071083
Step 3 / 7
0.564190293187867
Step 4 / 7
2.93620287911233
Step 5 / 7
0.822297130956301
Step 6 / 7
1.016940946008e+38
^C

    [download]

    ... according to my son who's trying to download a game from Steam.

    ...roboticus

    When your only tool is a hammer, all problems look like your thumb.

[reply]
[d/l]

In Section Seekers of Perl Wisdom