数组 – 在Perl中的文件中存储和读取哈希和数组

其他经常提到的选择是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',$yaml);
}
{
    my $yaml = read_file('dump.yml',{ binmode => ':raw' });
    %hash = %{ Load $yaml };
}

从这里开始的下一步是object persistence.

另请阅读：Serializers for Perl: when to use what