在Perl中将哈希和数组存储到文件中并进行读取

Question

我是个新手，需要了解如何在Perl下保存和读取数据的基础知识，比如如何保存哈希表和数组。应该使用什么文件格式（扩展名）？txt格式可以吗？目前我只能将所有东西以字符串形式保存print FILE %hash，并将它们作为字符串读取回来print <FILE>。如果我需要从文件中获取哈希表和数组输入，我该怎么做？如何将它们放回哈希表和数组中？

- Ivan Wang

---

你可以查看Storable或Data::Dumper等模块。 - TLP

Data::Dumper可以帮助您将数组/哈希存储为原样。您可以通过require/eval重复使用它们。 - tuxuday

Answer 1

您正在寻找数据序列化。流行的选择包括Sereal, JSON::XS和YAML::XS。较少人知道的格式有：ASN.1, Avro, BERT, BSON, CBOR, JSYNC, MessagePack, Protocol Buffers, Thrift。

通常提到的其他选择是Storable和Data::Dumper（或类似的）/eval，但我不能推荐它们，因为Storable的格式依赖于Perl版本，并且eval不安全，因为它执行任意代码。截至2012年，解析对应物Data::Undump还没有取得很大进展。我也不能建议使用XML，因为它无法很好地映射Perl数据类型，并且存在多个竞争/不兼容的模式来在XML和数据之间进行转换。

---

代码示例（已测试）：

use JSON::XS qw(encode_json decode_json);
use File::Slurp qw(read_file write_file);
my %hash;
{
    my $json = encode_json \%hash;
    write_file('dump.json', { binmode => ':raw' }, $json);
}
{
    my $json = read_file('dump.json', { binmode => ':raw' });
    %hash = %{ decode_json $json };
}

---

use YAML::XS qw(Load Dump);
use File::Slurp qw(read_file write_file);
my %hash;
{
    my $yaml = Dump \%hash;
    write_file('dump.yml', { binmode => ':raw' }, $yaml);
}
{
    my $yaml = read_file('dump.yml', { binmode => ':raw' });
    %hash = %{ Load $yaml };
}

---

下一步是对象持久化。

---

同时阅读：Perl的序列化程序：何时使用哪个

- daxim

Answer 2

Perlmonks有两个关于序列化的好讨论。

• 如何保存和重新加载哈希表
• 如何可视化我的复杂数据结构？

- learner

Answer 3

这取决于您想如何在文件中存储数据。我将尝试编写一些基本的Perl代码，使您能够将文件读入数组或将哈希写回文件。

#Load a file into a hash.
#My Text file has the following format.
#field1=value1
#field2=value2  
#<FILE1> is an opens a sample txt file in read-only mode.
my %hash;
while (<FILE1>)
{
  chomp;
  my ($key, $val) = split /=/;
  $hash{$key} .= exists $hash{$key} ? ",$val" : $val;
}

- verisimilitude

---

是的，使用现有的CPAN模块比使用原始代码更为合适。 - verisimilitude

抱歉，我本意是要在那里发布评论的。 - verisimilitude

有趣且实用。在某些环境中，这种方法具有价值，因为模块不容易安装。我同意首选的方法是使用Data::Dumper（近年来已经发展了很长一段时间）或另一个模块。 - Grant Bowman

Answer 4

如果您是新手，我建议使用join()将数组/哈希转换为字符串，然后用"print"命令来输出它。然后使用split()命令将其读入并再次转换为数组/哈希。这是一种更简单的方式，就像Perl教材中的例子一样。

- Vytautas Vytas

---

而且会有什么缺点呢？ - Ivan Wang

处理比数组或哈希表（例如多维数组）更复杂的东西可能会很困难。 - Vytautas Vytas

当数据可以是任何字符串，包括分隔符号时，真正的问题就开始了。 - Alexander Gelbukh