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