sig在STOP中用Perl超時處理

Question

是否可以通過perl腳本將SIG STOP發送到進程ID，然後如果過了一段時間（比如說1分鐘），可以發送SIG CONT到PID，除非「別人「已經將此SIG CONT發送給過程？

謝謝。

Answer 1

進程可以使用waitpid系統調用（使用WUNTRACED/WCONTINUED標誌）來監視子進程何時停止/恢復。這僅適用於受監視的進程是原始進程的子進程。但是不管孩​​子是否是孩子，您總是可以將信號SIGSTOP/SIGCONT發送到其他進程（前提是它們屬於同一用戶）。如果一個進程已經恢復運行，因爲它收到了SIGCONT，發送第二個SIGCONT是完全無害的。所以你可以做

kill 'STOP',$pid or die "cannot send STOP signal: $!"; 
sleep 60; 
kill 'CONT',$pid or die "cannot send CONT signal: $!"; 

而不用擔心第二個信號。