Perl6：如何从命令行读取混合参数？

Question

我总是从命令行运行程序，允许你混合参数的顺序。如果你在其中加入额外的东西，他们就会抓住你。例如:

$xxx -r abc  -q def  -w xyz

$xxx -w xyz  -q def  -r abc 

他们是怎么做到的？有这方面的模块吗？

Answer 1

使用< code>MAIN sub:

#!/usr/bin/env raku

use v6;

sub MAIN(:$these ="These", :$are="Are", :$params="Params") {
    say "$these $are $params";
}

您可以按任何顺序键入这些参数：

./command-line.p6 --are=well --these=those
those well Params

并且还会捕捉任何额外的参数，向您显示实际的参数:

./command-line.p6 --are=well --these=those --not=this_one
Usage:
  ./command-line.p6 [--these=<Any>] [--are=<Any>] [--params=<Any>]

如果您只对带有单个破折号的参数感兴趣，则需要GetOpt::Long，如Hakon所示

Answer 2

下面是一个使用Getopt::例子：

use v6;
use Getopt::Long;

my %opt = help => False, 'r=s' => "", 'q=s' => "", 'w=s' => "";
my %options = get-options(%opt).hash;
say %options;
say @*ARGS;

示例运行：

$ p.p6  -w xyz -q def -r abc hello
{help => False, q => def, r => abc, w => xyz}
[hello]