Perl6 REPL用法

Question

在将您放入REPL之前，是否可以让（Rakudo）Perl6执行一些代码？就像python对“python-i”所做的那样。

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

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

编辑：

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

Answer 1

我想提供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;
}

Answer 2

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

$ 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
>