perl - 如何使用 GetOptions 实用程序处理 Perl 中的 'optional' 命令行参数？

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 : (colon)可用于指示 optional :

#!/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,
);