我可以在perl中使用Getopt :: Long lib绑定两个不同的输入标志吗?

如何解决我可以在perl中使用Getopt :: Long lib绑定两个不同的输入标志吗?

让我们举一个简单的例子:我想在脚本中输入以下内容:

[
{foo => date_1},{foo2=> date_2},{foo3=> undef},# there was no input
... # probably more in the future
]

因此,使用类似以下内容的东西:

use strict;
use warnings;
use utf8;
use Getopt::Long qw(GetOptions);

my @foos;
my @dates;

# INPUT
GetOptions(
    'foo|f:s'                                       => \@foos,'date|d:s'                                      => \@dates,# 'help|h'   => \&help,) or die "Invalid options passed to $0\n"; 

我希望能够以类似以下方式调用脚本:

perl script.pl --foo "Go with 1" --foo "Go with 2" --date "date1" --date "date2"

然后可以执行以下操作:

foreach my $i (0..scalar(@foos)){
  print $foos[$i] . " " . $dates[$i] . "\n";
}

并获取:

Go with 1 date1
Go with 2 date2

我为什么要这样做 ?:我为一个函数循环了不确定数量的foos。在另一个函数中,我想再次遍历foo,并打印与之关联的日期如果存在

我要避免的事情:必须为foos的每个元素创建一个标志,如下所示:

GetOptions(
    'foo|f:s'                                               => \@foos,'date-foo-1|df1:s'                                      => \$dates_foo_1,'date-foo-2|df2:s'                                      => \$dates_foo_2,) or die "Invalid options passed to $0\n"; 

我认为我可以做的是将可选标志与另一个标志相关联,但是我找不到任何相关的东西。

解决方法

您的代码已经可以满足您的要求。

use strict;
use warnings;
use utf8; # This is unnecessart
use Getopt::Long qw(GetOptions);

my @foos;
my @dates;

# INPUT
GetOptions(
    'foo|f:s'  => \@foos,'date|d:s' => \@dates,# 'help|h'   => \&help,) or die "Invalid options passed to $0\n";

foreach my $i (0 .. scalar(@foos)){
  print $foos[$i] . " " . $dates[$i] . "\n";
}

输出为:

Go with 1 date1
Go with 2 date2
Use of uninitialized value in concatenation (.) or string at opts.pl line 17.
Use of uninitialized value in concatenation (.) or string at opts.pl line 17.

显示警告,因为您的数组遍历代码存在错误。您不想走0 .. scalar @foos,因为scalar @foos给出2,而@foos中的最高索引是1。

您可以使用scalar @foos代替$#foos来获得@foos中的最高索引。

foreach my $i (0 .. $#foos){
  print $foos[$i] . " " . $dates[$i] . "\n";
}

这也值得指出

print $foos[$i] . " " . $dates[$i] . "\n";

可以更简单地写为:

print "$foos[$i] $dates[$i]\n";

更新:在需要两个长度相同的列表的情况下,您可能还会查看Options with hash values

的文档

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


Selenium Web驱动程序和Java。元素在(x,y)点处不可单击。其他元素将获得点击?
Python-如何使用点“。” 访问字典成员?
Java 字符串是不可变的。到底是什么意思?
Java中的“ final”关键字如何工作?(我仍然可以修改对象。)
“loop:”在Java代码中。这是什么,为什么要编译?
java.lang.ClassNotFoundException:sun.jdbc.odbc.JdbcOdbcDriver发生异常。为什么?
这是用Java进行XML解析的最佳库。
Java的PriorityQueue的内置迭代器不会以任何特定顺序遍历数据结构。为什么?
如何在Java中聆听按键时移动图像。
Java“Program to an interface”。这是什么意思?
Java在半透明框架/面板/组件上重新绘画。
Java“ Class.forName()”和“ Class.forName()。newInstance()”之间有什么区别?
在此环境中不提供编译器。也许是在JRE而不是JDK上运行?
Java用相同的方法在一个类中实现两个接口。哪种接口方法被覆盖?
Java 什么是Runtime.getRuntime()。totalMemory()和freeMemory()?
java.library.path中的java.lang.UnsatisfiedLinkError否*****。dll
JavaFX“位置是必需的。” 即使在同一包装中
Java 导入两个具有相同名称的类。怎么处理?
Java 是否应该在HttpServletResponse.getOutputStream()/。getWriter()上调用.close()?
Java RegEx元字符(。)和普通点?