- 论坛徽章:
- 2
|
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脚本哪里有问题呢?还请各位高手多多指导啊。 |
|