perl - 如何回读 Data::Dumper 的输出？

Question

假设我有一个使用 Data::Dumper 创建的文本文件，大致如下:

my $x = [ { foo => 'bar', asdf => undef }, 0, -4, [ [] ] ];

我想读回那个文件并得到 $x背部。我试过这个:

my $vars;
{
  undef $/;
  $vars = <FILE>;
}

eval $vars;

但它似乎不起作用—— $x不仅没有定义，当我尝试使用它时，我会收到一个警告

Global symbol $x requires explicit package name.

这样做的正确方法是什么？ (是的，我知道它很丑。它是一个快速实用的脚本，而不是生命支持系统。)

Answer 1

这是一个提供几个不同选项的线程:Undumper

如果您只是在寻找数据持久性，那么 Storable 模块可能是您最好的选择。