Question

我正在尝试实现一个例程，该例程将接受“命令”和相关的“超时”。如果命令在指定时间内完成，则应返回输出。否则 - 它应该杀死这个过程。

sub runWithTimeout {

   my ($pCommand,$pTimeOut) = @_;
   my (@aResult);

   print "Executing command [$pCommand] with timeout [$pTimeOut] sec/s \n";
   eval {
        local $SIG{ALRM} = sub { die "alarm\n" };
        alarm $pTimeOut;
        @aResult = `$pCommand`;
        alarm 0;
   };
   if ($@) {
        print("Command [$pCommand] timed out\n");
        # Need to kill the process.However I don't have the PID here.
        # kill -9 pid
    } else {
        print "Command completed\n";
        #print Dumper(\@aResult);
    }
}

示例调用：

&runWithTimeout('ls -lrt',5);

Executing command [ls -lrt] with timeout [5] sec/s 
Command completed


&runWithTimeout('sleep 10;ls -lrt',5);

Executing command [sleep 10;ls -lrt] with timeout [5] sec/s 
Command [sleep 10;ls -lrt] timed out

猜猜我是否有PID - 我可以在if块的PID上使用“kill”。

关于如何获得PID（或任何其他更好的方法）的任何指针 - 这将是一个很大的帮助。

Answer 1

不要使用反引号运行命令，而是使用open。对于奖励积分 - 使用IO::Select和can_read来查看您是否有任何输出：

use IO::Select; 
my $pid = open ( my $output_fh, '-|', 'ls -lrt' );
my $select = IO::Select -> new ( $output_fh ); 
while ( $select -> can_read ( 5 ) ) { 
    my $line = <$output_fh>;
    print "GOT: $line"; 
}
##timed out after 5s waiting.  
kill 15, $pid;

Perl：为通过反引号调用的进程实现超时（＆amp; kill）

1 个答案: