perl - 使用 Getopt::Long 在 perl 中控制参数

Question

我正在尝试使用 Getopt::Long将命令行参数添加到我的脚本中(见下文)。我遇到的问题与执行不同操作的多个命令有关。例如，我有一个选项标志，用于设置要与脚本一起使用的配置文件选项是 -c [config_path] 并且我还有 -h 寻求帮助。

我遇到的问题是我需要有一个条件来说明是否使用了配置选项并且指定了配置文件。我尝试计算 @ARGV 中的选项，但发现如果指定了 -h 和 -c，它会导致脚本继续执行子例程load_config 无论如何。因为如下面的代码所示，当在 @ARGV 中找到 2 个参数时，它会触发子例程。

我可以用什么方法解决这个问题？至少在我看来，同时指定 -h 和 -c 有点相互矛盾。有没有办法让它只能像帮助这样的“信息命令”不能用像 -c 这样的“操作命令”来执行？哎呀，有没有办法让我获得已通过的命令列表？我尝试打印 @ARGV 的内容，但即使我指定了命令参数，也没有任何内容。

#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
use Term::ANSIColor;
use XML::Simple;
use Net::Ping;
use Net::OpenSSH;
use Data::Dumper;

# Create a new hash to copy XML::Simple configuration file data into
my %config_file;

# Clear the screen and diplay version information
system ("clear");
print "Solignis's Backup script v0.8 for ESX\\ESX(i) 4.0+\n";
print "Type -h or --help for options\n\n";

# Create a new XML::Simple object
my $xml_obj = XML::Simple->new();

# Create a new Net::Ping object
my $ping_obj = Net::Ping->new();

my $config_file;

my $argcnt = $#ARGV + 1;

GetOptions('h|help' => \&help, 
       'c|config=s' => \$config_file
      );

if ($argcnt == 0) {
    print "You must supply a config to be used\n";
} elsif ($argcnt == 2) {
    if (! -e $config_file) {
        print color 'red';
        print "Configuration file not found!\n";
        print color 'reset';
        print "\n";
        die "Script Halted\n";
    } else {
        load_config();
    }
}

sub load_config {

    print color 'green';
    print "$config_file loaded\n";
    print color 'reset';

    my $xml_file = $xml_obj->XMLin("$config_file",
                    SuppressEmpty => 1);

    foreach my $key (keys %$xml_file) {
            $config_file{$key} = $xml_file->{$key};
    }

    print Dumper (\%config_file);
}

sub help {
    print "Usage: backup.pl -c [config file]\n";
}

Answer 1

@ARGV 被 GetOptions 改变了，这就是为什么它看起来是空的。不是计算参数，而是直接检查是否定义了 $config_file。

顺便说一句，IMO 没有必要尝试排除 -c 与 -h 一起使用。通常“帮助”只是打印帮助文本并退出而不采取任何其他操作，首先检查它是否提供 -c 无关紧要。