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

Question

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

这是我提出的用于执行单个 args 并执行它的代码。

#!/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
}

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