如果我有操作码,有没有办法创建 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
我想以某种方式扭转这一点。
最佳答案
如果“拥有操作码”,您的意思是“拥有操作码树”
虽然 B::Concise 试图给出操作码树的准确表示,但 B::Deparse 获取操作码树并从中生成源代码。
$ perl -MO=Deparse -e'$x && print'
print $_ if $x;
-e syntax OK
这很好,虽然有一些限制。
如果通过“拥有操作码”,您的意思是“拥有 B::Concise 的输出”
鉴于 B::Concise 试图非常完整,这可能是可能的,但我认为缺少一些信息。我很确定没有任何东西试图在 CPAN 上做到这一点,因为我从来没有听说过会破坏它(你会期望经常发生的事情)。
关于Perl - 源代码的操作码?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27629176/