Perl：：Declare参数操作未调用

Question

我在脚本中使用Getopt::Declare，但是调用脚本和传递-get_ip "test"不会做任何事情，即脚本执行"my“语句，而getFirstAvailableIP没有被调用。

use Getopt::Declare;
use lib "/home/vtsingaras/NicTool/client/lib/";
use NicToolServerAPI;
use strict;
use warnings;
#debug remove
use Data::Dumper;

#NicToolServer settings, edit
my $ntconf = {
    ntuser => 'censored',
    ntpass => 'censored',
    nthost => 'censored',
    ntport => 8082,
};

my ( $zone, $fqdn, $ip, $comment );

my $options_spec = q(+g[et_ip] <zone>   Get the first available IP from the provided reverse <zone>.
                        {getFirstAvailableIP($::zone);} 
+s[et_dns] <fqdn> <ip> <comment>    Create an A record for <fqdn> that points to <ip> and the associated PTR record.
{createFwdAndPtr($::fqdn, $::ip, $::comment);}  
    );
my $args = Getopt::Declare->new($options_spec);
#Setup NicTool
my $nt = new NicToolServerAPI;
$NicToolServerAPI::server_host   = $ntconf->{nthost};
$NicToolServerAPI::server_port   = $ntconf->{ntport};
$NicToolServerAPI::data_protocol = "soap";
#$NicToolServerAPI::use_https_authentication = 0;

sub nt_login {
    #Login to NicTool Server
    my $ntuser = $nt->send_request(
        action   => "login",
        username => $ntconf->{ntuser},
        password => $ntconf->{ntpass},
    );
    if ( $ntuser->{error_code} ) {
        print( "Unable to log in: " . $ntuser->{error_code} . " " . $ntuser->{error_msg} . "\n" );
        exit 1;
    } else {
        print( "Logged in as " . $ntuser->{first_name} . " " . $ntuser->{last_name} . "\n" );
    }
}

sub getFirstAvailableIP {
    my $fqdn = $_[0];
    print $fqdn;
    die "blah";
}

Answer 1

问题是您指定了+，而不是在$options_spec中为get_ip指定了-。

下面是一个自包含的可运行示例，它调用getFirstAvailableIP

use strict;
use warnings;
use Getopt::Declare;

my $zone;

my $args = Getopt::Declare->new(<<'END_OPTS');
    #               tab
    #               ||||
    #               vvvv
    -g[et_ip] <zone>    Get the first available IP from the provided reverse <zone>.
        { getFirstAvailableIP($zone); }
END_OPTS

print "hello world\n";

exit;

sub getFirstAvailableIP {
    print "blah - @_\n";
}

__END__

并执行：

$ perl declare_test.pl -get_ip test
blah - test
hello world

请注意，该模块在其规范中需要一个tab字符；这使得正确复制“n”粘贴变得困难。