准确测试脚本执行时间

准确测试脚本执行时间

#!/usr/bin/perl
use Benchmark;
$TT0 = new Benchmark;
..........

程序结尾加上
$TT1 = new Benchmark;
$td = Benchmark::timediff($TT1, $TT0);
$td = Benchmark::timestr($td);
$td =~ /(d+)s*wallclock secs (s*?(d*?.d*?)s*usrs*+s*(d*?.d*?)s*sys/i;
my $alltimas=($2+$3)*1000;
print "程序占用 CPU 时间：$2 usr + $3 sys 合计运行时间 $alltimas 毫秒";