in reply to What's wrong with my Perl process timer?
toprintf('Page processed by Perl %s in %.02f seconds',$],$total_time);
Note the %.02f to %.6fprintf('Page processed by Perl %s in %.6f seconds',$],$total_time);
#!/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
#!/usr/bin/perl -Tw use perl::always; my $perl_version = "5.12.4"; print $perl_version;
|
|---|