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 ()
没有细细研究