如何使用 ARGV 传递命令行标志，同时为标志指定特定顺序？

Question

我想将 ARGV 的使用集成到我的脚本中。在弄乱了我在 Stack Overflow 上找到的一个简单用法的示例后，我能够使脚本“强制”使用单个命令参数。我现在想要的是允许多个标志而不是只有一个。问题是如果使用多个标志，则需要按特定顺序强制执行。

这是我为执行单个参数并强制执行它而提出的代码。

#!/usr/bin/perl
use strict;
use warnings;

system ("clear");
print "Solignis's Discovery Script v0.6 for ESX\\ESX(i) 4.0+\n\n";

my $numargs = $#ARGV + 1;

if ($#ARGV < 0) {
    help_menu();
}

foreach my $argval (0 .. $#ARGV) {
    if (($#ARGV == 0) && ($ARGV[0] eq '-b')) {
        print "Backup\n";
    } elsif (($#ARGV == 0) && ($ARGV[0] eq '-d')) {
        print "Discovery\n";
    } elsif ((($#ARGV == 0) && ($ARGV[0] eq '-h') || ($#ARGV == 0) && ($ARGV[0] eq '-?'))) {
        help_menu();
    } elsif (($#ARGV == 0) && ($ARGV[0] eq '-s')) {
        print "Setup\n"
    }
}

if ($#ARGV >= 1) {
    print "Too many arguments, only one argument may be passed at a time!\n";
}

sub help_menu {
    print "Options:\n\n";
    print "\t-b\tRun Backup Backup\n";
    print "\t-d\tRun Discovery Script\n";
    print "\t-h\tShow Help Menu\n";
    print "\t-s\tRun Setup Script\n\n";
}

Answer 1

使用核心 Getopt::Long 模块 并且不要担心自己解析参数。

如果您有多个参数，则不必按照它们所说的顺序执行任何操作，只需执行类似以下伪代码的操作：

if( option s is set ) {
  run setup stuff
}
if( option b is set ) {
  run backup stuff
}

绝对没有理由您的脚本应该允许参数为 -s -b 和不是-b -s。您的用户会期望，如果他们提供 -b -s，则首先完成设置，然后进行备份。你的脚本应该足够智能。