perl - 如何通过指定其解析树来创建 perl 子？

Question

给定一个 CODE ref，是否可以:

访问该 CODE ref

的解析树

通过指定 CODE ref 的解析树来创建一个新的 CODE ref，该解析树可以包含在 1

中返回的解析树的元素

通常我们通过指定源代码在 perl 中创建子例程，然后将其解析并转换为解析树。

我想编写一个 perl 函数，它可以通过指定其解析树来创建一个子例程，并且该解析树可以从某个其他子例程的另一个解析树派生。

可能的？

Answer 1

我不知道您问题的完整答案，但我知道 Data::Dumper 可以解析代码引用。查看它的文档，我发现它使用了 B::Deparse 做繁重的工作(B:: 模块是与编译器交互的模块)。不幸的是，这似乎只会导致 coderef 的文本表示。

相反，我搜索了 Op 在 metacpan 上获得了更多有趣的可能性。由于我现在在最深的 Perl 魔法方面还不够深入，所以我将留给您查看这些结果。也许有些东西会有用。