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

Question

假设我有一个使用 Data::Dumper，大致如下：

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

我想读回该文件并获取 $x 。 我尝试了这个：

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

eval $vars;

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

全局符号 $x 需要明确的包名称。

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

Answer 1

正如其他人已经说过的，您可能最好以更好的序列化格式存储数据：

• Storable< /a> - 这既快速又简单，但相当特定于 Perl（但可以轻松满足您在相对不重要的脚本中快速解决方案的需求）
• YAML，使用 YAML 模块，或 YAML::Tiny 或 YAML::Any 作为包装器，以利用系统上可用的任何 JSON 模块
• JSON，使用 JSON 模块，或 JSON::XS 以获得更快的速度（或 JSON::Any 作为包装器以利用系统上可用的任何 JSON 模块）
• XML，使用 XML-Simple 模块或其他 XML 模块之一。

就我个人而言，我认为我的目标是 YAML 或 JSON...没有比以下更简单的了：


我的 $data = YAML::Any::LoadFile($filename);


Answer 2

这里有一个线程提供了几个不同的选项：Undumper

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

Answer 3

默认情况下，Data::Dumper 输出无法通过 eval 进行解析，特别是当转储的数据结构在某种程度上是循环的时。 但是，您可以设置

$Data::Dumper::Purity = 1;

或

$obj->Purity(1);

其中 obj 是 Data::Dumper 对象。 其中任何一个都会导致 Data::Dumper 生成可由 eval 解析的输出。

请参阅CPAN 上的 Data::Dumper 文档了解所有细节。

Answer 4

正如 Rich 所说，您可能不想使用 Data::Dumper 来实现持久性，而是使用诸如 Storable 之类的东西。

但是，为了回答所提出的问题...IIRC，Data::Dumper 不会将您的变量声明为 my，所以您自己以某种方式这样做吗？

为了能够eval返回数据，变量不需要是eval中的my。 如果您的文本文件包含以下内容：

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

那么这将起作用：

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

my $x;    
eval $vars;
print $x;

Answer 5

如果您想保留一些简单且易于阅读的内容，只需使用 Data::Dump 模块而不是 Data::Dumper。 基本上，Data::Dumper 做得很好——它生成可供赋值的有效 Perl 表达式，而不会创建所有那些奇怪的 $VAR1、$VAR2 等变量。

然后，如果您的代码如下所示：

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

保存它使用：

use Data::Dump "pp";
open F, ">dump.txt";
print F pp($x);

这会生成一个文件 dump.txt ，看起来像（至少在我的电脑上）：

[{ asdf => undef, foo => "bar" }, 0, -4, [[]]]

加载它使用：

open F, "dump.txt";
my $vars;
{ local $/ = undef; $vars = <F>; }
my $x = eval $vars;

请注意，

1. 如果您懒得把在其自己的块中对 $/ 进行赋值，您应该使用 local 来确保它的值实际上在块的末尾恢复； 并且
2. eval()的结果需要分配给$x。

Answer 6

您确定该文件是由 Data::Dumper 创建的吗？ 那里不应该有 my 。

其他一些选项包括 Storable、YAML 或 DBM::Deep。 我在掌握 Perl 的“持久性”一章中查看了一些示例。

祝你好运， ：）

Answer 7

这段代码很短并且对我有用（我正在数组中阅读）。 它从第一个脚本参数中获取文件名。

# Load in the Dumper'ed library data structure and eval it
my $dsname = $ARGV[0];
my @lib = do "$dsname";

Answer 8

我认为您想

our $x;

在访问 x 之前将其放入代码中。 这将满足严格的错误检查。

话虽这么说，我和其他人一起建议使用 Storable。

Answer 9

这对我来说效果很好：

写出：

open(my $C, qw{>}, $userdatafile) or croak "$userdatafile: $!";
use Data::Dumper;
print $C Data::Dumper->Dump([\%document], [qw(*document)]);
close($C) || croak "$userdatafile: $!";

读入：

open(my $C, qw{<}, $userdatafile) or croak "$userdatafile: $!";
local $/ = $/;
my $str = <$C>;
close($C) || croak "$userdatafile: $!";
eval { $str };
croak $@ if $@;