可以设置命令执行的超时时间的脚本

旧博客第三弹：

在linux下，执行程序时，有一个需求就是在一定的时间内执行完成，未执行完成则退出。下面是工作中经常使用的一个perl程序，可以设置超时，通过alarm信号机制进行控制

执行命令 ./timeout.pl -c command -t timeout

eg: ./timeout.pl -c "./run.sh" -t 180

#!/usr/bin/perl -w
use strict;
use Getopt::Std;
my $result;
my % opts;
getopt('ct', /%opts);
sub ss_h(){
        eval {
                local $SIG{ALRM} = sub{die "alarm/n"};
                alarm $opts{'t'};
                #$result=`$opts{'c'}`;
                system($opts{'c'});
                $result = $?;
                alarm 0;
        };
        if ($@ and $@ =~ /alarm/) {
                kill('INT', $);
                exit (1);
        } elsif ( $result == 0 ){
                exit (0);
        }else {
                exit (1);
        }
}
&ss_h();