如何从Java调用Perl 6？

Perl 6正则表达式/语法比Perl 5或任何地方的相关Perl兼容正则表达式（包括Java中的正则表达式）结构更好、功能更强大、可读性更强。我正在寻找一种使用来自Java的正则表达式/语法代码执行Perl 6代码的方法

下面是我想做的一个类似的常见示例：

grammar Calculator {
    token TOP { [ <add> | <sub> ] }
    rule  add { <num> '+' <num> }
    rule  sub { <num> '-' <num> }
    token num { \d+ }
}

class Calculations {
    method TOP ($/) { make $<add> ?? $<add>.made !! $<sub>.made; }
    method add ($/) { make [+] $<num>; }
    method sub ($/) { make [-] $<num>; }
}

say Calculator.parse('2 + 3', actions => Calculations).made;

# OUTPUT: «5␤» 

这是一种从Perl 6开始并将大量Java代码绑定到一个项目的可能方法吗？但是如何从Java回到Perl 6代码？对于Perl5，我可以找到Inline:：Java:：Callback模块，但是对于Perl6，我找不到

---

我应该如何以专业的方式做到这一点？

我认为，将perl6代码编译成JVM字节码不会立即对您有所帮助，但测试套件使用了一个“Eval服务器”，因此它不必为spec测试套件中的许多测试文件从头开始启动JVM

---

你可以在这里找到eval服务器的源代码，可能还会从中窃取一些东西：

我分享我自己的实验和观察结果，希望它会有用，即使我的结论目前不是很积极。我对共和党问题的简短回答是：截至2019年5月，这还不可能

现在有一个很长的答案：在Rakudo Star的最新版本中，Perl6的JVM后端支持尚未处于稳定的、随时可用的状态：

无论如何，如果你想试试运气，这里有一个源于rakudo-star/nqp/examples的示例（带有一个小补丁，因为rakudo-star-2019.03的原始代码不会立即编译）。对原始示例的改进还包括命令行参数的文档和基本控制：

package examples;
import org.perl6.nqp.runtime.*;
import static org.perl6.nqp.runtime.CallSiteDescriptor.*;
import org.perl6.nqp.sixmodel.*;

public class CallFromJava {
    private GlobalContext g;
    private ThreadContext t;
    private SixModelObject nqpComp;

    private CallFromJava(String bytecode, String hll) {
        g = new GlobalContext();
        t = g.getCurrentThreadContext();

        Ops.loadbytecode(bytecode, t);
        nqpComp = Ops.getcomp(hll, t);
    }

    private SixModelObject eval(String nqp) {
        Ops.invokeDirect(t, Ops.findmethod(nqpComp, "compile", t),
                new CallSiteDescriptor(new byte[] { ARG_OBJ, ARG_STR }, null),
                new Object[] { nqpComp, nqp });

        Ops.invokeDirect(t, Ops.result_o(t.resultFrame()), Ops.emptyCallSite, Ops.emptyArgList);
        return Ops.result_o(t.resultFrame());
    }

    public static void main(String[] args) {
        if (args.length != 3) {
            System.err.printf("usage: java CallFromJava <jarfile> <dialect> <expression>\n");
            System.err.println("<jarfile>: path to nqp.jar or perl6.jar");
            System.err.println("<dialect>: nqp or perl6");
            System.err.println("<expression>: a nqp or perl6 expression");
            System.exit(1);
        }

        String jarFile = args[0];
        String dialect = args[1];
        String expression = args[2];
        CallFromJava nqp = new CallFromJava(jarFile, dialect);

        nqp.eval(expression);
    }
}

问题在于NQP只是Perl6的一个子集，不打算由Perl6开发人员直接使用。 假设有了完整的Perl6，人们会做如下事情：

export PERL6_PREFIX=/usr/local/perl6 # or whatever your perl6 installation prefix is
cd rakudo-star-yyyy-mm/nqp
javac -cp bin/ examples/CallFromJava.java
java -cp $PERL6_PREFIX/share/nqp/runtime/asm-4.1.jar:$PERL6_PREFIX/share/nqp/runtime/asm-tree-4.1.jar:$PERL6_PREFIX/share/nqp/runtime/nqp-runtime.jar:$PERL6_PREFIX/share/perl6/runtime/rakudo-runtime.jar:$PERL6_PREFIX/share/perl6/runtime/perl6.jar:. examples.CallFromJava $PERL6_PREFIX/share/perl6/runtime/perl6.jar perl6 'say 2 + 2'

但到目前为止我还没能成功

Unhandled exception: java.nio.file.NoSuchFileException: Perl6/Grammar
  in <anon> (src/vm/jvm/ModuleLoader.nqp:76)
  in load_module (src/vm/jvm/ModuleLoader.nqp:58)
  in <anon> (gen/jvm/main.nqp)

未处理的异常：java.nio.file.NoSuchFileException:Perl6/Grammar
in（src/vm/jvm/ModuleLoader.nqp:76）
在load_模块中（src/vm/jvm/ModuleLoader.nqp:58）
in（gen/jvm/main.nqp）

您确实希望避免这种情况。为什么你认为你不能用java编写perl代码？你说的“更好”是什么意思？如果您想运行Java代码，为什么不使用Java的现有功能呢。Java正则表达式是基于Perl正则表达式的（就像过去20年中几乎所有语言的正则表达式一样）。Perl6对正则表达式进行了重大重写，使其更易于阅读，功能更强大。@NicoHaase解释了P6中的哪些功能看起来像“regex”（但更易于编写和读取，并且可以任意扩展），可以称为“regex”（但在技术上属于类，而不是类）比regexes、ANTLR、Canopy和cosins加起来要花更多的时间。我只想说，并不是所有的工具都是可以替代的。我代表那些试图对新来者保持如此热情的人，向你们道歉。从我的角度来看，你的标题很清楚，你的身体详细说明了你想要什么和你有什么问题。我投票决定重新开业。标签吸引标签观察者

perl6

观察者倾向于相对耐心，而

java

等高流量标签的观察者倾向于仓促下结论，相对不友好。Imo TungstenX的JNI中断是唯一有用的信息。可能P6真的需要一个基于JNI的适配器。同时，timotimo的答案和解决方案有望满足您当前的需求。

cd rakudo-star-yyyy-mm/nqp
javac -cp bin/ examples/CallFromJava.java
java -cp nqp-runtime.jar:3rdparty/asm/asm-4.1.jar:3rdparty/asm/asm-tree-4.1.jar:. examples.CallFromJava nqp.jar nqp 'say(2+2)'
4

export PERL6_PREFIX=/usr/local/perl6 # or whatever your perl6 installation prefix is
cd rakudo-star-yyyy-mm/nqp
javac -cp bin/ examples/CallFromJava.java
java -cp $PERL6_PREFIX/share/nqp/runtime/asm-4.1.jar:$PERL6_PREFIX/share/nqp/runtime/asm-tree-4.1.jar:$PERL6_PREFIX/share/nqp/runtime/nqp-runtime.jar:$PERL6_PREFIX/share/perl6/runtime/rakudo-runtime.jar:$PERL6_PREFIX/share/perl6/runtime/perl6.jar:. examples.CallFromJava $PERL6_PREFIX/share/perl6/runtime/perl6.jar perl6 'say 2 + 2'

Unhandled exception: java.nio.file.NoSuchFileException: Perl6/Grammar
  in <anon> (src/vm/jvm/ModuleLoader.nqp:76)
  in load_module (src/vm/jvm/ModuleLoader.nqp:58)
  in <anon> (gen/jvm/main.nqp)