如何使用 EVAL 将参数传递给子例程？

Question

我正在尝试使用 Raku，并试图弄清楚如何使用子命令编写程序。当我跑步时，./this_program blah：

#! /usr/bin/env raku
use v6;

sub MAIN($cmd, *@subcommands) {
    $cmd.EVAL;
}

sub blah() { say 'running blah'; };

我得到running blah 输出。

但这是我所得到的。我尝试了各种方法，但我看不到将@subscommands 传递给blah 函数的明显方法。

我什至不确定EVAL 是否也是可行的方法，但我找不到任何其他解决方案。

Answer 1

我认为EVAL 在这里并不是绝对必要的。你可以去indirect lookup，即，

&::($cmd)(@sub-commands);

在&::($cmd)点，从字符串$cmd中查找函数&blah，即可使用；然后我们用@sub-commands 调用它。

那么我们有

sub MAIN($cmd, *@sub-commands) {
    &::($cmd)(@sub-commands);
}

sub blah(*@args) {
    say "running `blah` with `{@args}`";
}

运行方式

$ raku ./program blah this and that

给予

running `blah` with `this and that`

Answer 2

将 MAIN 设为 multi 也可能是一种解决方案：

multi sub MAIN('blah', *@rest) {
    say "running blah with: @rest[]";
}
multi sub MAIN('frobnicate', $this) {
    say "frobnicating $this";
}