perl 将数据保存到硬盘

[perl]代码库

#-----------------------------
use Storable;
store ( \%hash, "filename" );

# later on...
$href = retrieve ( "filename" );
# by ref
%hash = % { retrieve ( "filename" ) };
# direct to hash
#-----------------------------
use Storable qw ( nstore );
nstore ( \%hash, "filename" );
# later ...
$href = retrieve ( "filename" );
#-----------------------------
use Storable qw ( nstore_fd );
use Fcntl qw ( :DEFAULT :flock );
sysopen ( DF, "/tmp/datafile", O_RDWR|O_CREAT, 0666 )
or die "can't open /tmp/datafile: $!";
flock ( DF, LOCK_EX )           or die "can't lock /tmp/datafile: $!";
nstore_fd ( \%hash, *DF )
or die "can't store hash\n";
truncate ( DF, tell ( DF ) );
close ( DF );
#-----------------------------
use Storable;
use Fcntl qw ( :DEFAULT :flock );
open ( DF, "< /tmp/datafile" )      or die "can't open /tmp/datafile: $!";
flock ( DF, LOCK_SH )               or die "can't lock /tmp/datafile: $!";
$href = retrieve ( *DF );
close ( DF );
#-----------------------------