Perl - 源代码的操作码？

Question

如果我有操作码，有没有办法创建 perl 源代码？

例如

perl -MO=Concise -e "print 123"

将输出操作码:

6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
5     <@> print vK ->6
3        <0> pushmark s ->4
4        <$> const[IV 123] s ->5

我想以某种方式扭转这一点。

Answer 1

如果“拥有操作码”，您的意思是“拥有操作码树”

虽然 B::Concise 试图给出操作码树的准确表示，但 B::Deparse 获取操作码树并从中生成源代码。

$ perl -MO=Deparse -e'$x && print'
print $_ if $x;
-e syntax OK

这很好，虽然有一些限制。

如果通过“拥有操作码”，您的意思是“拥有 B::Concise 的输出”

鉴于 B::Concise 试图非常完整，这可能是可能的，但我认为缺少一些信息。我很确定没有任何东西试图在 CPAN 上做到这一点，因为我从来没有听说过会破坏它(你会期望经常发生的事情)。