如何使用Getopt::Long方法？

Question

如果输入命令执行是这样的，如何使用 Getopt::Long 方法：

$ testcmd -option check  ARG1 ARG2 ARG3

或者

$ testcmd  ARG1 ARG2 ARG3

Answer 1

一个简单的例子：

#! /usr/bin/perl

use warnings;
use strict;

use Getopt::Long;

sub usage { "Usage: $0 [--option=VALUE] ARG1 ARG2 ARG3\n" }

my $option = "default";

GetOptions("option=s", \$option)
  or die usage;

die usage unless @ARGV == 3;

print "$0: option=$option: @ARGV\n";

Getopt::Long 在接受的内容方面非常灵活：

$ ./cmd
Usage: ./cmd [--option=VALUE] ARG1 ARG2 ARG3

$ ./cmd 1 2 3
./cmd: option=default: 1 2 3

$ ./cmd --option=foo 4 5 6
./cmd: option=foo: 4 5 6

$ ./cmd -option=bar 7 8 9
./cmd: option=bar: 7 8 9

$ ./cmd -option check a b c
./cmd: option=check: a b c

Answer 2

您需要启用 pass_through 选项。文档引用如下：

pass_through（默认：禁用）

未知、不明确或
提供了无效的选项值
在 @ARGV 中传递而不是
被标记为错误。这使得
可以编写包装脚本
仅处理用户提供的部分内容
命令行参数，并传递
剩下的一些选择
程序。

如果启用了require_order，则选项
处理将在第一次终止
无法识别的选项或非选项，
以先到者为准。然而，如果
而是启用了 permute，结果
可能会变得混乱。

DVK 发布了一个示例 如何在另一个答案中执行此操作。如果你觉得他的回答有用，我会先投票。

Answer 3

#!/usr/bin/perl

use Getopt::Long;

my $cla = GetOptions (  "one=s"         =>      \$one,
                        "two=s"         =>      \$two,
                        "three=s"       =>      \$three,
                        "help|h|?"      =>      \$help,
) or usage ();

if ($help) {
        usage ();
}

my $first = $one;
my $second = $two;
my $third = $three;

printf ("%-7s %-9s %-7s\n", $first, $second, $third);

sub usage {
        print "\n$0\t" . "[ -one <text> -two <text> -three <text> ]\n\n";
        exit (0);
}