Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: What's wrong with my Perl process timer? [SOLVED]

by taint (Chaplain)
on Jun 07, 2013 at 22:20 UTC ( #1037771=note: print w/ replies, xml ) Need Help??


in reply to What's wrong with my Perl process timer?

Greetings, and apologies,
OK. I just figured out my own answer -- I overestimated the time it would take, see; use higher precision.
So changing the last line from:

printf('Page processed by Perl %s in %.02f seconds',$],$total_time);
to
printf('Page processed by Perl %s in %.6f seconds',$],$total_time);
Note the %.02f to %.6f
also worked with %.5f

Sorry for the noise

For the record, here it is without the other stuff
just the interesting/required parts:
#!/usr/bin/perl -Tw # at the top of your page(s) use Time::HiRes qw/gettimeofday tv_interval/; my $start_time = [gettimeofday]; # at the very bottom of your page(s) my $total_time = tv_interval($start_time); printf('Page processed by Perl %s in %.6f seconds',$],$total_time); # note: could also have used sprintf


--chris

#!/usr/bin/perl -Tw
use perl::always;
my $perl_version = "5.12.4";
print $perl_version;


Comment on Re: What's wrong with my Perl process timer? [SOLVED]
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (9)
As of 2014-08-21 00:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (127 votes), past polls