You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
383 B
25 lines
383 B
#!/usr/bin/perl
|
|
|
|
use Benchmark;
|
|
|
|
$script = $ARGV[0];
|
|
|
|
# declare array
|
|
my @data;
|
|
|
|
# start timer
|
|
$start = new Benchmark;
|
|
|
|
for ($x = 0; $x <= 100; $x++) {
|
|
$output = `perl ./$script`;
|
|
}
|
|
|
|
# end timer
|
|
$end = new Benchmark;
|
|
|
|
# calculate difference
|
|
$diff = timediff($end, $start);
|
|
|
|
# report
|
|
print "Content-type: text/plain\n\n";
|
|
print "Time taken was ", timestr($diff, 'all'), " seconds";
|