如何使用 GetOptions 实用程序来处理“可选” Perl 中的命令行参数？

Question

有许多 Perl 教程解释如何使用 GetOptions 实用程序仅处理预期的命令行参数，否则退出并显示适当的消息。

在我的要求中，我有以下可选的命令行参数，例如

• -z zip_dir_path ：压缩输出
• -h ：显示帮助。

我尝试了一些与 GetOptions 的组合，但对我来说不起作用。
所以我的问题是：如何使用 GetOptions 来处理这个需求？

编辑：-z 需要“zip 目录路径”

编辑2： 我的脚本具有以下强制命令行参数：

• -in input_dir_path ：输入目录
• -out output_dir_path ：输出目录

这是我的代码：

my %args;
GetOptions(\%args,
"in=s",
"out=s"
) or die &usage();

die "Missing -in!" unless $args{in};
die "Missing -out!" unless $args{out};

希望此编辑增加更多清晰度。

Answer 1

A :（冒号） 可以是用于指示可选选项：

#!/usr/bin/env perl

use strict;
use warnings;

use Getopt::Long;

my ( $zip, $help, $input_dir, $output_dir );

GetOptions(
    'z:s'   => \$zip,
    'h'     => \$help,
    'in=s'  => \$input_dir,
    'out=s' => \$output_dir,
);

Answer 2

从文档中：

   : type [ desttype ]
       Like "=", but designates the argument as optional.  If omitted, an
       empty string will be assigned to string values options, and the
       value zero to numeric options.

如果您指定并检查空字符串，您就知道用户未指定哪些字符串。

Answer 3

应根据您获得的输入参数将 $zip_output 和 $show_help 的值设置为 1 或 0在命令行中。

use strict;
use warnings;

use Getopt::Long;

my $zip_output;
my $show_help;

GetOptions("z" => \$zip, "h" => \$show_help);