coreutils超时模拟perl

这里的脚本：

#!/usr/bin/perl
use strict;
my $pid=$$;
my $timeout=shift;
my @args=@ARGV;
eval {
        local $SIG{ALRM} = sub {
          print "Timed OUT!n";
          exit 142;
          kill 9,$pid;
        };
        alarm($timeout);
        system(@args);
};
exit $?;

测试时我发现：

这里都很好

time /tmp/timeout 3 sleep 6
Timed OUT!

real    0m3.007s
user    0m0.000s
sys     0m0.004s

但这里都很糟糕

time echo `/tmp/timeout 3 sleep 6`
Timed OUT!

real    0m6.009s
user    0m0.000s
sys     0m0.004s

在我使用/usr/bin/timeout测试的debian系统上：

time echo `/usr/bin/timeout 3 sleep 6`


real    0m3.004s
user    0m0.000s
sys     0m0.000s

所以问题

>为什么perl脚本工作如此奇怪？
>有没有任何真正的工作方式在perl上写入超时,它将与二进制超时一样工作？

请注意,我知道/usr/share/doc/bash-3.2/scripts/timeout,我也发现它的行为与我的perl方法相同

另请注意,我无法在此脚本的目标服务器上安装CPAN模块

我尝试使用exec()但在这种情况下它不处理sub中的信号.

UPD

用@rhj中的脚本(必须修复一下)

#!/usr/bin/perl
use strict;
use warnings;
my $PID=$$;
my $timeout=shift;
my @args=@ARGV;

my $pid = fork();
defined $pid or die "fork: $!";
$pid == 0 && exec(@args);

my $timed_out = 0;
$SIG{ALRM} = sub { $timed_out = 1; die; };
alarm $timeout;
eval { waitpid $pid,0 };
alarm 0;
if ($timed_out) {
    print "Timed out!n";
    kill 9,$pid;
    kill 9,$PID;
}
elsif ($@) {
    warn "error: $@n";
}

它通过了上面的测试,但在调用外部脚本的情况下失败：

RUN_SCRIPT

#!/bin/sh
sleep 6

test.sh

#!/bin/sh
a=`./timeout.pl 2 ./run_script.sh`

产量

$time ./test.sh 

real    0m6.020s
user    0m0.004s
sys     0m0.008s