Re^2: timing a command execution with perl

so I should write:

use strict;
use warnings;
use diagnostics;

use Time::HiRes qw( time );
my $start = time();

system("program-name file-name");

my $end = time();
my $runtime = sprintf("%.16s", $end - $start);
print "This script took $runtime seconds to execute\n";
[download]

isn't it?

Comment on Re^2: timing a command execution with perl Download Code

Replies are listed 'Best First'.
Re^3: timing a command execution with perl by james28909 (Deacon) on Dec 09, 2014 at 15:53 UTC
I mean something like: use strict; use warnings; use diagnostics; use Time::HiRes qw( time ); my $start = time(); stringsNthings(); your actual code goes here; whether it be system(whatever_prog, whatever_arg); or sub stringsNthings{ my $hello_world = "hello world\n"; my $sum = 1 + 2; chomp(my name = <STDIN>); } print stringsNthings($hello_world); print stringsNthings($sum."\n"); print stringsNthings($name); my $end = time(); my $runtime = sprintf("%.16s", $end - $start); print "This script took $runtime seconds to execute\n"; [download] As long as you put working code in there it should time it. The code posted more than likely wont work, its just a visual example.	[reply] [d/l]
Re^3: timing a command execution with perl by Anonymous Monk on Dec 09, 2014 at 15:44 UTC
That measures the elapsed real time (wall clock time), not CPU time. Which do you want to measure?	[reply]