怎么用perl监守程序，保护另外一个应用进程，详见内！

mylotus

鄙人想编一个小的应用脚本，目的就是一旦检测到目标程序退出，就马上恢复该程序。为了节省系统资源，可以sleep 15秒钟，做死循环。我自己写了一个，觉得不怎么合理，请问各位大侠怎么写这脚本比较合适。环境是在redhat 9 下。谢谢

apile

可能會消耗很多CPU與memory喔...
用crontab去run就好了...設定15秒run一次...

mylotus

那我想检测某个程序是否正在运行，怎么样写这脚本比较好呢？

apile

$pid = `ps -ef|grep process|grep -v grep|cut -c9-16`;
kill 0 $pid;

檢查看看回傳值是不是true...如果是true..則表示process還活著..
如果是false(=0)表示process已經死了...如果 pid不存在...
也表示process已經沒了...

gunguymadman

原帖由 "apile" 发表：
kill 0 $pid;

..........

0换成－9吧    0好像杀不利索

apile

應該是$return_value = kill 0 $pid;
因為他問檢查process是不是還活著..
沒說要殺...所以用0囉..
kill -0 pid可已檢查pid是不是還活著...當然只能檢查自己的process