如何手動喚醒perl睡眠功能？

Question

我想知道是否可以手動喚醒已經入睡的perl腳本。 基本上，我將腳本設置爲在執行某個操作後的一小時後休眠，10分鐘後我意識到我希望它再次運行。

我運行的平臺是linux，帶有一個tcsh shell。

再次，感謝所有幫助

Answer 1

在許多系統中，系統調用像sleep可以用信號中斷。在這樣的中斷中，sleep將返回實際睡眠的秒數並設置$!。當然，你必須使用一個信號來讓腳本繼續。如果您還沒有設置任何特定的信號處理程序，那麼SIGSTOP和SIGCONT的組合也可以實現。

例子：

$ perl -e 'print "slept for ", sleep 1000, " seconds.\n";' & 
[2] 6220 
$ kill -STOP 6220 
$ kill -CONT 6220 
slept for 8 seconds[2]+ Stopped  perl -e ... 

又如（瑣細SIGUSR1處理程序）：

$ perl -e '$SIG{USR1}=sub{}; print "slept for ", sleep 1000, "s.\n"' & 
[1] 2419 
$ kill -USR1 2419 
slept for 4s