如何在超時後終止Perl系統調用？

Question

我有一個Perl腳本，用於運行使用反引號啓動的文件處理工具。問題在於偶爾會出現該工具掛起的情況，並且需要將其殺死才能處理其餘文件。

最好的方式來應用超時之後，父腳本將殺死掛起的過程最好的方式是什麼？

在我使用的那一刻：

foreach $file (@FILES) { 
    $runResult = `mytool $file >> $file.log`; 
} 

但當mytool n秒後掛斷，我想能夠殺死它，繼續下一個文件。

Answer 1

我可能不會使用``爲此。相反，我會open()命令與|，以便它異步運行。這將返回pid。然後你可以做一個非阻塞wait()與睡眠循環，在一定次數的嘗試沒有成功後，發出一個信號給孩子pid。

Answer 2

您需要將$ SIG {'ALRM'}設置爲處理程序例程，然後使用超時值調用警報函數。例如：

$SIG{'ALRM'} = handler; 
foreach $file (@FILES) { 
    alarm(10); 
    $runResult = `mytool $file >> $file.log`; 
    alarm(0); 
} 

sub handler { 
    print "There was a timeout\n"; 
} 

這應該在10秒後觸發處理子程序。將鬧鐘設置爲0將關閉鬧鐘。