如何将HASH 存入文件 然后将文件转为hash

perl Hash 我比较喜欢的，好多数据我都是存在 hash中。

但是有些数据我是不想他，程序退出后不保存的。所以想把数据存入文件中。

这个东西研究了 好多个小时，想找一个和 SHELL 语言一样的 >> << 文件读写方式。

 

经过 google 很一下。发现有几个方案是比较好的。

 

方案一Dump ：

#!/bin/perl -w
use strict;
use Data::Dump 'dump';
use FileHandle;
my $file = "data.out";

{
 my %hash = ("apples"=>17,
    "bananas"=>9,
    "oranges"=>"none");
 my $str = Data::Dumper->Dump([ /%hash ], [ '$hashref' ]);
 my $out = new FileHandle ">$file";
 print $out $str;
 close $out;
}

{
 my $in = new FileHandle "<$file";
 local($/) = "";
 my $str  = <$in>;
 close $in;
 #print "Input: $str";
 my($hashref);
 eval $str;
 my %hash = %$hashref;
 print dump(/%hash),"/n";
}

 

 

方案2：使用Storable

 

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use Storable;
my %test = (this => ['that', 'the', 'other','323232'],
   that => ['this', 'the', 'other','121122']
   );
warn Dumper(/%test);
# Save the hash to a file:
store /%test, 'file.txt';
# Retrieve the hash from the file.
my $testref1 = retrieve('file.txt');
warn Dumper($testref1);

 

方案3：XML （）

没有细细研究