Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
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 surveying the Monastery: (6)
As of 2015-07-03 20:45 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 (56 votes), past polls