如何解决Perl Getopt :: Long,支持参数的空格
|| 我有一个perl脚本,它长时间使用GetOpts。automate -action build,deploy -modules chat,email,login
很容易处理。
我要实现的是,允许用户在参数之间留空格。
例如
automate -action build,login
问题是GetOpt::Long
内部使用@ARGV
来根据需要设置变量,而空格改变了@ARGV
数组,这反过来只会将'build'作为动作,而仅将'chat'作为模块对于脚本,忽略传递的其余参数。
有没有一种简单的方法可以像Perl那样解析命令行?
我希望是这样,因为否则,在将a3ѭ数组传递给GetOpts之前,我将不得不使用一种非常怪异的方法。
还有其他健壮的库可以为我做到这一点吗?
---------------------------裁缝制作的脚本-------------------- ------------
GetOptions(\"action=s{1,4}\"=>\\@myactions,\"modules=s{,}\"=>\\@mymodules);
foreach(@mymodules)
{
if($_ eq $mymodules[0])
{
$mymodules= $mymodules.$_;
next;
}
if($dashboards =~ m/,$/ || $_ =~ m/^,/)
{
$mymodules= $mymodules.$_;
}
else
{
$mymodules= $mymodules.\",\".$_;
}
}
解决方法
在Getopt :: Long perldoc中查看具有多个值的此选项部分。它看起来类似于您要寻找的内容。
例:
GetOptions (\"action=s{,}\" => \\@valuelist);
@values = split(/[\\s,]+/,join(\',\',@valuelist));
# @values will contain the list of values passed to the option.
# This can handle the scenarios:
# <command> -action build,deploy
# <command> -action build,deploy
# <command> -action build deploy
,这是非标准的命令行用法-因此您将需要一个非标准的命令行解析器。如果您在http://search.cpan.org/上搜索\'getopt \',则会列出大约180个单独的条目,因此有很多选择。
从表面上看,您只想识别一些长选项名称,然后在读取非选项参数时将其继续应用于先前的选项名称。
您会坚持使用逗号吗?这样做很麻烦。我可以看到:
automate -action build deploy -modules chat email login
在某些论点的结尾处要求用逗号分隔会感到很奇怪。
您需要考虑双破折号选项是否具有特殊意义,以及单破折号选项是否具有特殊意义:
somecmd -f - --
我不知道能处理您选择的表示法的Perl模块,或者它的任何细微变化。这与说没有这样的模块并不完全相同,但是您正在尝试一种稍微不寻常的参数解析样式,因此很可能没人能完全实现您想要的。