如何反编译Perl 6？

Question

我们应该能够以某种方式做到这一点。我想我在某个地方见过它，但我找不到我认为我记得的东西。我主要想看看编译器如何解释代码。

除了反编译，还有什么方法可以在编译时观察它在做什么吗？我认为看到它试图做什么以及在哪里可能比试图理解它的一些错误消息更容易。而且，反编译一个程序可以撤销所有解释实际发生的事情的速记和聪明。

Answer 1

我不知道你为什么要这样做。此外，编译结果依赖于后端，您没有指定后端。无论如何，使用--Target=参数，您可以获得中间结果。最有用的是：

$ perl6 --target=parse -e 'say "foo"'
- statementlist: say "foo"
  - statement: 1 matches
    - EXPR: say "foo"
      - args:  "foo"
        - arglist: "foo"
          - EXPR: "foo"
            - value: "foo"
              - quote: "foo"
                - nibble: foo
      - longname: say
        - name: say
          - identifier: say
          - morename:  isa NQPArray
        - colonpair:  isa NQPArray

--target=parse显示解析的即时结果。

$ perl6 --target=ast -e 'say "foo"'
- QAST::CompUnit  :W<?> :UNIT<?>
  [pre_deserialize]
    - QAST::Stmt 
      - QAST::Stmt 
        - QAST::Op(loadbytecode)
          - QAST::VM 
            [jvm]
              - QAST::SVal(ModuleLoader.class) 
            [moar]
              - QAST::SVal(ModuleLoader.moarvm) 
        - QAST::Op(callmethod load_module) 
*snip*

--Target=ast显示抽象语法树。

$ perl6 --target=mast -e 'say "foo"'
MAST::Frame name<<unit-outer>>, cuuid<2>
  Local types: 0<obj>, 1<obj>, 2<obj>, 3<obj>, 
  Outer: <none>
  Instructions:
  [0] MAST::Op getcode
    MAST::Local index<3>
    MAST::Frame name<<unit>>, cuuid<1>
  [1] MAST::Op capturelex
    MAST::Local index<3>
  [2] MAST::Op getcode
    MAST::Local index<1>
    MAST::Frame name<<unit>>, cuuid<1>
  [3] MAST::Op takeclosure
*snip*

和--target=mast显示正在生成的实际字节码，在这种情况下是为MoarVM后端生成的。