Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^2: Estimating computation time perl scripts

by roboticus (Chancellor)
on Dec 27, 2012 at 14:23 UTC ( #1010537=note: print w/ replies, xml ) Need Help??


in reply to Re: Estimating computation time perl scripts
in thread Estimating computation time perl scripts

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.


Comment on Re^2: Estimating computation time perl scripts
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (18)
As of 2015-07-30 20:18 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 (273 votes), past polls