Perl6 REPL 用法

Question

是否可以让 (Rakudo) Perl6 在将您放入 REPL 之前执行一些代码？就像 python 与 "python -i " 一样。

例如，我想加载一些模块并可能读取一个副文件并从该副文件构建一些数据结构，然后再放入 REPL 并让用户在数据结构上做他们需要做的事情, 使用 REPL 作为用户界面。

这与相似但不同，尽管这个问题的答案可能会满足那个问题。基本情况是，在任何程序执行结束时，解释器不会退出，而是将用户留在 REPL。除了为交互式程序提供一个漂亮的、内置的、基于 Perl6 的用户界面之外，它还提供了一个很好的工具来调试代码，否则会出现错误。

编辑：

选择 Zoffix 的解决方案作为正确的（到目前为止）解决方案，因为它是唯一满足所述所有要求的解决方案。希望此功能能够添加到编译器或语言规范中。

Answer 1

您可以使用 -M 开关加载模块。

$ perl6 -MJSON::Tiny

To exit type 'exit' or '^D'
> to-json Array.new: 1,2,3.Str
[ 1, 2, "3" ]
>

如果你想运行其他代码，目前你必须先把它放到一个模块中。

$ mkdir lib
$ echo 'our $bar = 42' > lib/foo.pm6
$ perl6 -Ilib -Mfoo

To exit type 'exit' or '^D'
> $bar
42
>

Answer 2

我想提供一个 Zoffix 在 IRC 上给出的答案。它满足基本要求，但远非漂亮，它使用的 NQP 没有用户支持，NQP API（"nqp::*" 调用）也不能保证未来，并且可以在没有警告的情况下更改。

replify ｢
  say 'Hello to your custom REPL! Type `say $a` to print the secret variable';
  my $a = "The value is {rand}";
｣;

sub replify (Str:D \pre-code = '') {
    use nqp;
    my %adverbs; # command line args like --MFoo
    my \r := REPL.new: nqp::getcomp('perl6'), %adverbs;
    my \enc := %adverbs<encoding>:v.Str;
    enc && enc ne 'fixed_8' && $*IN.set-encoding: enc;

    my $*CTXSAVE := r;
    my $*MAIN_CTX;
    pre-code and r.repl-eval: pre-code, $, :outer_ctx(nqp::getattr(r, REPL, '$!save_ctx')),
      |%adverbs;
    $*MAIN_CTX and nqp::bindattr(r, REPL, '$!save_ctx', $*MAIN_CTX);

    r.repl-loop: :interactive, |%adverbs;
}

Perl6 REPL 用法

Perl6 REPL usage

read-eval-print-loop

raku