怎么用perl 察看linux 进程是否存活

wdl111

我现在 需要这样一个程式  用perl 判断一个linux 系统进程是否在运行  如果在运行  就等10秒 然后再判断  （反复判断）  直到进程停止 才运行下面的程式。


until （grep（进程名，@a)>0){

sleep 10;

@a=`ps -e| grep 进程名`;}



这样对吗？

ziggler

http://bbs2.chinaunix.net/archiver/tid-1601126.html

参考

flw

man pidof

ttcn_cu

sleep 10 until (`ps -ef| grep xxxxx| grep -v grep` eq "")

xp5211314

ps -e| grep 进程名

这样会多一列  要么采用ttcn_cu 的ps -ef| grep xxxxx| grep -v grep

要么判断得到的行数 ps -e| grep 进程名 | wc -l >1

orangetouch

发送kill 0

lth0721

my $pid=`pidof -sx 进程名`;
while (kill 0, $pid) {
    $pid=`pidof -sx 进程名`;            
    sleep 10;
}

[ 本帖最后由 lth0721 于 2009-12-24 10:56 编辑 ]