Use of uninitialized value $command in string eq at

logo111

/usr/local/mysql/bin/master_ip_failover –orig_master_host=xxx  –orig_master_ip=xxx  –command=stopssh –ssh_user=root
執(zhí)行總是報(bào)錯(cuò)
Use of uninitialized value $command in string eq at /usr/local/mysql/bin/master_ip_failover line 34#!/usr/bin/env perl

麻煩幫忙看下。
這是 MySQL mha 的一段程序。

#!/usr/bin/env perluse strict;
use warnings FATAL => 'all';

use Getopt::Long;

my (
    $command,          $ssh_user,        $orig_master_host, $orig_master_ip,
    $orig_master_port, $new_master_host, $new_master_ip,    $new_master_port
);

# my $vip = '172.16.21.119/24';  # Virtual IP
my $key = "1";
my $ssh_start_vip = "/sbin/ifconfig eth0key $vip";
my $ssh_stop_vip = "/sbin/ifconfig eth0key down";

GetOptions(
    'command=s'          => \$command,
    'ssh_user=s'         => \$ssh_user,
    'orig_master_host=s' => \$orig_master_host,
    'orig_master_ip=s'   => \$orig_master_ip,
    'orig_master_port=i' => \$orig_master_port,
    'new_master_host=s'  => \$new_master_host,
    'new_master_ip=s'    => \$new_master_ip,
    'new_master_port=i'  => \$new_master_port,
);

exit &main();

sub main {

    print "\n\nIN SCRIPT TEST====$ssh_stop_vip==$ssh_start_vip===\n\n";
    if ( $command eq "stop" || $command eq "stopssh" ) {

        # $orig_master_host, $orig_master_ip, $orig_master_port are passed.
        # If you manage master ip address at global catalog database,
        # invalidate orig_master_ip here.
        my $exit_code = 1;
        eval {
            print "Disabling the VIP on old master: $orig_master_host \n";
            &stop_vip();
            $exit_code = 0;
        };
        if ($@) {
            warn "Got Error: $@\n";
            exit $exit_code;
        }
        exit $exit_code;
    }
    elsif ( $command eq "start" ) {

        # all arguments are passed.
        # If you manage master ip address at global catalog database,
        # activate new_master_ip here.
        # You can also grant write access (create user, set read_only=0, etc) here.
        my $exit_code = 10;
        eval {
            print "Enabling the VIP - $vip on the new master - $new_master_host \n";
            &start_vip();
            $exit_code = 0;
        };
        if ($@) {
            warn $@;
            exit $exit_code;
        }
        exit $exit_code;
    }
    elsif ( $command eq "status" ) {
        print "Checking the Status of the script.. OK \n";
        `ssh $ssh_user\@cluster1 \" $ssh_start_vip \"`;
        exit 0;
    }
    else {
        &usage();
        exit 1;
    }
}

# A simple system call that enable the VIP on the new master
sub start_vip() {
    `ssh $ssh_user\@$new_master_host \" $ssh_start_vip \"`;
}
# A simple system call that disable the VIP on the old_master
sub stop_vip() {
    `ssh $ssh_user\@$orig_master_host \" $ssh_stop_vip \"`;
}

sub usage {
    print
    "Usage: master_ip_failover --command=start|stop|stopssh|status --orig_master_host=host --orig_master_ip=ip --orig_master_port=port --new_master_host=host --new_master_ip=ip --new_master_port=port\n";
}

logo111

已解決。我自己的問(wèn)題。

104359176

$command 沒(méi)有被傳遞給值，你可以測(cè)試一下，通過(guò)命令行傳遞的數(shù)據(jù)能否在內(nèi)部被正常顯示。

syncpk99

use Carp qw( confess );
$SIG{__DIE__} =  \&confess;
$SIG{__WARN__} = \&confess;

在代碼中加上上面三行，能夠得到更詳細(xì)的信息，方便找到具體的原因。

jeef1201

您好~
請(qǐng)問(wèn)你這個(gè)問(wèn)題是怎么解決的，謝謝~~~

jeef1201

回復(fù) 2# logo111

您好~
請(qǐng)問(wèn)你這個(gè)問(wèn)題是怎么解決的，謝謝~~~