从perl运行/ usr / bin / time

时间:2013-02-28 16:39:04

标签: perl time

我正在尝试进行一些非常粗略的基准测试,因此我想从我的脚本中运行time命令。我有以下内容:

#!/usr/bin/perl

   use strict;

   my $command = "/usr/bin/time -f \"%U,%S,%E,%P,%K,%M\" ...";
   my $stats = `$command`;
   print "stats: $stats\n";

不幸的是,看起来命令的结果从未分配给$stats。当我执行脚本时,我得到如下内容:

0.15,0.03,0:00.44,43%,0,143808
stats:

因此看起来它成功运行time命令,但将值打印到STDOUT,而不是将值赋给$stats。当我使用另一个命令,如ls时,它似乎按预期工作。我在这里做错了什么?

2 个答案:

答案 0 :(得分:6)

time打印到stderr。

$ /usr/bin/time -f "%U,%S,%E,%P,%K,%M" echo foo >/dev/null
0.00,0.00,0:00.03,10%,0,2352

$ /usr/bin/time -f "%U,%S,%E,%P,%K,%M" echo foo >/dev/null 2>/dev/null


$

只需将2>&1添加到您的命令中即可。

答案 1 :(得分:5)

time写入标准错误,因此您需要将其重定向到标准输出以使用Perl的反引号捕获它

 my $command = "/usr/bin/time -f \"%U,%S,%E,%P,%K,%M\" ... 2>&1";