Chinaunix

标题: keepalived中调用perl脚本，perl脚本取不到keepalived传过来的命令行参数 [打印本页]

作者: 草中宝 时间: 2015-09-01 11:56
标题: keepalived中调用perl脚本，perl脚本取不到keepalived传过来的命令行参数
perl脚本代码如下

[root@master log]# cat /tmp/JudgeWorker.pl
#!/usr/bin/perl -w

use strict;
use DBI;
use IO::Socket;

my $dest_ip;
my $dest_port;

# print @ARGV;
$dest_ip = $ARGV[0];
$dest_port = $ARGV[1];

my $log_output = "/tmp/debug.log";
open(FILE,">> $log_output");
print(FILE $dest_ip,"\t",$dest_port,"\n");
close(FILE);

exit 0;

这个JudgeWorker.pl perl脚本，在shell中单独运行是没有任何问题的，如下
[root@master tmp]# /tmp/JudgeWorker.pl 90.0.12.81 6078
[root@master tmp]# /tmp/JudgeWorker.pl 90.0.12.82 6078

运行的结果也正确，即$ARGV[0]和$ARGV[1]可以取得正确的命令行参数，详见后面的debug.log日志。但如果把这个JudgeWorker.pl perl脚本，放到keepalived中调用，
virtual_server 90.0.12.78 6078 {
delay_loop 6
lb_algo wlc
lb_kind DR
nat_mask 255.255.0.0
persistence_timeout 600
protocol TCP

real_server 90.0.12.81 6078 {
      weight 100
      MISC_CHECK {
         misc_path /tmp/JudgeWorker.pl 90.0.12.81 6078
         misc_timeout 10
         misc_dynamic
      }
}

real_server 90.0.12.82 6078 {
      weight 100
      MISC_CHECK {
         misc_path /tmp/JudgeWorker.pl 90.0.12.82 6078
         misc_timeout 10
         misc_dynamic
      }
}
}

然后JudgeWorker.pl 中的$ARGV[0]和$ARGV[1]，就不能取得正确的命令行参数了，都是空值,参看下面的debug.log日志。
[root@master tmp]# cat debug.log
                                    <= 空值都是keepalived自动调用产生的，即$ARGV[0]和$ARGV[1]取到的值都是空
                                    <= 空值都是keepalived自动调用产生的，即$ARGV[0]和$ARGV[1]取到的值都是空
                                    <= 空值都是keepalived自动调用产生的，即$ARGV[0]和$ARGV[1]取到的值都是空
                                    <= 空值都是keepalived自动调用产生的，即$ARGV[0]和$ARGV[1]取到的值都是空
                                    <= 空值都是keepalived自动调用产生的，即$ARGV[0]和$ARGV[1]取到的值都是空
                                    <= 空值都是keepalived自动调用产生的，即$ARGV[0]和$ARGV[1]取到的值都是空
90.0.12.81    6078       <= 这个是在shell中手动执行产生的
                                    <= 空值都是keepalived自动调用产生的，即$ARGV[0]和$ARGV[1]取到的值都是空
                                    <= 空值都是keepalived自动调用产生的，即$ARGV[0]和$ARGV[1]取到的值都是空
90.0.12.82    6078       <=  这个是在shell中手动执行产生的
                                    <= 空值都是keepalived自动调用产生的，即$ARGV[0]和$ARGV[1]取到的值都是空
                                    <= 空值都是keepalived自动调用产生的，即$ARGV[0]和$ARGV[1]取到的值都是空

咋回事呢，perl脚本哪里有问题呢？还请各位高手多多指导啊。

作者: MMMIX 时间: 2015-09-01 12:28
回复 1# 草中宝

你还是再检查下你的 keepalived 用的对不对吧

作者: 草中宝 时间: 2015-09-01 14:19

MMMIX 发表于 2015-09-01 12:28
回复 1# 草中宝

谢谢提醒，粗心啊，竟然是因为keepalived调用处少了双引号。

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)