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

Question

我正在用Raku做实验，试图弄明白如何用子命令编写程序。当我运行时，/这个程序毫无意义：

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

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

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

我得到运行的废话输出。

但这是我能做到的。我尝试过各种方法，但我看不到明显的方法将@subcommands传递到blah函数。

我甚至不确定EVAL是否是一条可行之路，但我找不到任何其他解决方案。




Answer 1

使MAIN成为多重也可能是一个解决方案：

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

Answer 2

我认为这里不一定需要EVAL。您可以进行间接查找，即。，

&::($cmd)(@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`