Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Estimating computation time perl scripts

by Anonymous Monk
on Dec 27, 2012 at 13:01 UTC ( #1010522=note: print w/ replies, xml ) Need Help??


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


Comment on Re: Estimating computation time perl scripts
Download Code
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

    ... 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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1010522]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (19)
As of 2015-07-28 19:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (258 votes), past polls