I have a solution for you but I haven't finished it yet. I wrote Data::Postponed so I could abstract off the symbol renaming part of B::Deobfuscate into something else. The interesting effect of that is you'd end up with a tree of perl syntax with placeholders wherever a symbol name went. Normally you'd just let the values interpolate in but if you wished, you could change the values or just dump out the intermediate structure.
Consider this. Its how I remember stuff is dumped just from simple debugging. Obviously a more convenient debug output could be provided.
(. (. (. (. "sub " SUBNAME) " {\n print ") FOO ) ";\n}")In reply to Re^3: Test::Code
by diotalevi
in thread Test::Code
by Ovid
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |