perl - 我如何使用 Perl 的 Getopt::Long 处理 -r=<pattern>？

Question

我正在使用 Getopt::Long 在 Perl 中解析命令行选项.我被迫使用前缀 - (一个破折号)用于短命令 ( -s ) 和 -- (双破折号)表示长命令(例如 --input=file )。

我的问题是有一个特殊选项(-r=<pattern>)所以它是一个长选项，因为它需要参数，但它必须有一个破折号(-)前缀而不是双破折号(--)其他多头选项。可以设置 Getopt::Long接受这些？

Answer 1

默认情况下，Getopt::Long可互换地接受单破折号 (-) 或双破折号 (--)。所以，你可以只使用 --r=foo。尝试时会出现任何错误吗？

use strict;
use warnings;
use Getopt::Long;
my $input = 2;
my $s = 0;
my $r = 3;
GetOptions(
    'input=s' => \$input,
    's'       => \$s,
    'r=s'     => \$r,
);
print "input=$input\n";
print "s=$s\n";
print "r=$r\n";

这些示例命令行产生相同的结果:

my_program.pl --r=5
my_program.pl --r 5
my_program.pl  -r=5
my_program.pl  -r 5

input=2
s=0
r=5