使用 Perl 检测 系统进程,实现进程意外退出重启。

#! /usr/bin/perl
$ck=`ps -ef | grep 'sasl' | grep -v grep`;
        if ($ck eq ''){
        print "SASL Down, Start up now\n";
        `/etc/rc.d/init.d/saslauthd start`;

        }else{
        print "SASL Running\n";
        }

编程技巧