我是一个菜鸟.我需要一些关于如何在perl下保存和读取数据的基本知识.说保存哈希和数组.应该使用什么格式(扩展名)的文件？文本？到目前为止,我只能将所有内容保存为stringprint FILE％hash并将其作为stringprint< FILE>读回.如果我需要来自文件的函数哈希和数组输入,我该怎么办？如何将它们放回哈希和数组？
解决方法
您正在寻找数据序列化.稳健的热门选择是
Sereal,MessagePack7002和
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',$yaml);
}
{
my $yaml = read_file('dump.yml',{ binmode => ':raw' });
%hash = %{ Load $yaml };
}
从这里开始的下一步是object persistence.