Perl Getopt :: Long，支持参数的空格
||
我有一个perl脚本，它长时间使用GetOpts。
automate -action build,deploy -modules chat,email,login
automate -action build, deploy -modules chat, email, login
GetOpt::Long
@ARGV
@ARGV
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.\",\".$_;
}
}
没有找到相关结果
已邀请:
2 个回复
担每棱绰
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旦彤
在某些论点的结尾处要求用逗号分隔会感到很奇怪。 您需要考虑双破折号选项是否具有特殊意义，以及单破折号选项是否具有特殊意义：我不知道能处理您选择的表示法的Perl模块，或者它的任何细微变化。这与说没有这样的模块并不完全相同，但是您正在尝试一种稍微不寻常的参数解析样式，因此很可能没人能完全实现您想要的。