Perl里保存和读取存储在文件中的复杂数据

这个技巧对于依赖历史记录的perl程序尤其有用

 

如果需要保存一些数据结构到文件里去，以便于日后程序中加载这些数据，可以使用Storable模块

use Storable;

my @data=qw(a b c);

my @data2=qw(d e f);

store [\@data,\@data2], 'bakfile';

 

如果读出来

my $result=retrieve 'bakfile';

注意的是store后面接的参数只能是引用，[\@data,\@data2]其实就是一个对匿名数组的引用，这个匿名数组里有两个值，都是对一个数组的引用