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,
);