#!/usr/bin/perl -w
use Data::Dumper;
use Storable;
my $a = "good";
my @myarray = ("hello","world","123",4.5);
my %myhash = ( "foo" => 35,
"bar" => 12.4,
"2.5"=> "hello",
"wilma" => 1.72e30,
"betty" => "bye/n");
print Dumper($a) ."\n"x2;
print Dumper(\@myarray) ."\n"x2;
print Dumper(\%myhash) ."\n"x2;
print Dumper((\%myhash,\@myarray)) ."\n"x2;
运行结果如下：
$VAR1 = 'good';
$VAR1 = [
'hello',
'world',
'123',
'4.5'
];
$VAR1 = {
'betty' => 'bye/n',
'bar' => '12.4',
'wilma' => '1.72e+30',
'foo' => 35,
'2.5' => 'hello'
};
'2.5' => 'hello'
};
$VAR2 = [
'hello',255)"> 2、Storable
结合Data::Dumper和Storable存储和重新获取数据。你可以用U盘将数据拷走，再在其他服务器上展开。
"2.5"=> "hello",
"wilma" => 1.72e30,
"betty" => "bye/n");
print Dumper($a) ."\n"x2;
print Dumper(\@myarray) ."\n"x2;
print Dumper(\%myhash) ."\n"x2;
print Dumper((\%myhash,\@myarray)) ."\n"x2;
###use Storable
print "\nmethod 1,use Storable retrieve data:\n";
store \%myhash,'./file.txt'; #保存数据
my $hashref=retrieve('./file.txt'); #重新获取数据
print Dumper(\%$hashref);