想寫一支 perl 判斷程式什麼時候掛掉，不一定是 crash，執行到 hang 也算，因為現在面對的就是一支無法得知穩定度的 C 程式。我昨天就用 watchdog 當關鍵字在找，也沒什麼資料。 判斷 time out 的部份好不容易找到 Using Eval for Time-Outs，用 signal 來接收 time out 的 alarm，這部份算是一大進展，eval{} 區塊裡面放入我要判斷的程式，alarm handler 放入 system(“killall -9 myprogram”) 將 hang 住的程式殺掉，然後重啟。