perl保存数据结构

转自： Perl里保存和读取存储在文件中的复杂数据-hdc1112hdc1112-ChinaUnix博客

建立一个a.pl

#!/usr/bin/perl -w
use Storable;

my %China = ('Area'=>'9,600,000','Population'=>'1.4billion');
store \%China, 'a.txt'; #存入的必须是一个引用

my @province = ('Sichuan','Henan','HuBei');

store \@province, 'a.txt';  #对于同一个文件来说，第二次store的内容会覆盖第一次store的内容

 再建立一个b.pl

#!/usr/bin/perl -w
use strict;
use Storable;

#my $result=retrieve 'a.txt';
my $result = retrieve 'a.txt';

#print $$result{'Area'},"\n"; #这个会报错，因为a.pl中，存储的%China已经被覆盖
print $$result[1], "\n";

python 里面有一个joblib可以实现这个功能：sklearn 无法导入 joblib - 顾wenfan - 博客园

举个栗子：

与perl一样，python也只能一个文件保存一个对象。

但R语言里面，可以保存多个对象

#但R语言可以保存多个对象

save(file="sample_select.RData", result,result2)

aa = load("sample_select.RData")
print(aa)  #查看哪些变量被load进入了内存中