perl - GetOptions 和命令行 (Perl)

Question

我目前在使用 GetOptions 时遇到问题。

假设我有这段代码：

my $var1;
my $var2;

GetOptions (
    'option1=s' => \$var1,
    'option2=s' => \$var2,
);

当我在命令行上运行我的脚本时，我试图避免这种特殊情况。

myprog.pl --option1 --option2 arg1 arg2（依此类推）

其中 option1 将在 $var1 中分配 --option2，这显然不是我想要的：

myprog.pl --option1 something --option2 somethingElse ...

有什么建议么？

Answer 1

所以你希望的值--option1是可选的？使用:s而不是=s.

my $var1;
my $var2;

GetOptions (
    'option1:s' => \$var1,
    'option2=s' => \$var2,
);