小编Bru*_*uce的帖子

我希望能够从Perl eval中捕获变量赋值.也就是说,确定在代码中分配了哪些变量名称并提取它们的值.

例如,如果我运行:

eval '$foo=42; $bar=3.14;'

eval的结果是3.14(评估的最后一个值),但我也希望能够确定名称"$ foo"和"$ bar"及其值(事先不知道名称).

我已经阅读了几种通过Safe和Eval :: Context将变量插入eval块的方法,但还没有提取它们的任何方法.我更熟悉Python的eval/exec,它已经内置了对此的支持.