这个语句可以读出需要的基线时间：
$bl_time = `cleartool lsbl -fmt %d  baseline:$recomment_bl[$i]@\\$pvob`;   
这个可以读出当前系统时间：
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $time) = localtime();
my $localtime = sprintf("%4d-%2.2d-%2.2d %2.2d:%2.2d:%2.2d", $year + 1900, $mon + 1, $mday, $hour, $min, $sec);
那么怎么比较$bl_time是不是在当前系统时间$localtime前5分钟之内呢？望高手来帮帮忙。。。。

先计算当前时间-5分钟，
$tt = time() - 60 * 5;
$tt_str = scalar localtime $tt;
然后就是对于$$tt_str调整显示格式，最终格式需要根据自己需要调整。我下面那个例子是从 check view的脚本中抓出来的。
$tt_str =~ /\w* (\w*) (\w*) (.*) (\w*)/;
$tt_str = $4. "-" . $months{$1} . "-" . $2 . "T" . $3 . "+08";
最后就是利用“LT”进行字符串比较了。

months是个预定应的对应表
@months{qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)} = (1..12);

[ 本帖最后由 bigjames 于 2008-6-16 15:01 编辑 ]