Question

我有一个用java编写的tcp / ip监听器，它运行多个“站点”，每个站点都有自己的端口。编写此监听器的开发人员是独立的，因此我必须通过start_comtrol.sh脚本来管理每个监听器，这非常繁琐。我是perl的新手，但是今天我写了一个快速脚本来检查每个pidfile比较以确保进程正在运行并尝试重新启动，如果不是如下所示。

use strict;
use warnings;

my @sites = qw / FOO BAR FOO2 /;

foreach (@sites) {
    my $pidfile = "/usr/local/sbin/listener/$_/pid.file";
    my $start_comtrol = "/usr/local/sbin/listener/$_/start_comtrol.sh";
    open my $file, '<', $pidfile or die 'Could not open file:  ' . $!;
    my $pid = do { local $/; <$file> };
    close $file;
    my $exists = kill 0, $pid;
        if ( $exists ) {
            print "The running process for $_ is $pid\n"; #temp print to screen for debugging
            # Do Nothing
        }
        else {
            exec $start_comtrol;
    }
}

每个start_comtrol.sh脚本的内容都相同：

#!/bin/ksh
export CLASSPATH=.:ojdbc6.jar:Base.jar:ojdbc14.jar:log4j.jar
#export CLASSPATH=/home/aspira/controller/ojdbc6.jar:/home/aspira/controller/Base.jar:/home/aspira/controller/ojdbc14.jar
nohup java com.aspira.comtrol.listener.BaseListener  &
echo "$!" > pid.file

当发现进程正在运行时脚本运行正常，但是如果进程没有运行并且它试图通过exec $ start_comtrol.sh启动它，它会遇到nohup等待回车并且不会继续sites数组中的下一个变量。

The running process for FOO is 19401

The running process for BAR is 1228

[root@isildur]# nohup: appending output to `nohup.out'

处理这个问题的最佳方法是什么，所以它不会挂在nohup的无关提示上？

Answer 1

您正在寻找system()功能，而不是exec()

来自exec()的文档：

exec函数执行系统命令，永不返回;使用如果你想让它返回，系统而不是exec。

尝试改为system( $start_comtrol )。

perl脚本监控＆amp;重启监听器挂起nohup等待回车

1 个答案: