Perl 命令行参数

Question

我对 Perl 中的命令行参数有疑问。我不确定以前是否有人问过这个问题，因为我不确定要搜索什么。

我有一个应用程序，我在其中传递了一些命令行参数。但我希望它看起来像这样：stepanalyzer --file=glasses.STEP --get=#62296,#3,#883

所以我可以说 --get 例如。以及如何使用 --get

传递多个参数

我希望有人能够帮助我。提前致谢！

Answer 1

要使用的库是 Getopt::Long

正如我所说，我需要像 --get="616","718"

这样的东西

所以有了这个库你可以放：GetOptions('file=s' => $file, 'get=s' => \@ary);

'file=s' 

表示： --file后面需要一个字符串。

'get=s'

表示： 相同，现在我们可以在命令行上设置多个 --get value 并且每个这样的选项都会添加它的字符串为 @ary。因此，问题中要求的作为逗号分隔列表的选项是数组中的一个元素，扩展它的一种方法是

@ary = split(/,/, join(',', @ary));

作为shown in documentation

但是还有另一种方式来给出这个：'get=s@'。你喜欢什么。