Perl中的解析时间命令 [英] parsing time command in perl

问题描述

当我发出命令/usr/bin/time script.sh时，它可能会因负载而不同(有时可能是10秒，有时可能是2分钟)，问题是如果执行时间超过30秒(也可能包括分钟)，我需要通知。如果是20-30秒，则发出警告。 捕获请求阈值的所有时间值的最佳方式是什么：

/usr/bin/time ./script.sh | awk'/real/ {print $2}' 
30.0
/usr/bin/time ./script.sh | awk'/real/ {print $2}'
1:24.2
/usr/bin/time ./script.sh | awk'/real/ {print $2}' 
3.1

推荐答案

指定了以下警告阈值：

• 严重：30秒或更长
• 警告：20秒到30秒
• 确定：少于20秒

并基于您计算机上的/usr/bin/time的输出，它似乎使用了hh:mm:ss.d格式，可选的小时和分钟位置：

my $time = `/usr/bin/time ./vladtest.sh | awk '/real/ {print $2}'`
my $status;
if ($time =~ /^[01]?d./) {       # time is 0-9 seconds or 10-19 seconds
    $status = "OK";
}
elsif ($time =~ /^(2d|30)./) {   # time is 20-30 seconds
    $status = "WARNING";
}
else {                             # any other time is critical
    $status = "CRITICAL";
}

这篇关于Perl中的解析时间命令的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！