perl 透明的持久数据结构

[perl]代码库

#-----------------------------
use MLDBM qw ( DB_File );
use Fcntl;

tie ( %hash, 'MLDBM', 'testfile.db', O_CREAT|O_RDWR, 0666 )
or die "can't open tie to testfile.db: $!";

# ... act on %hash

untie %hash;
#-----------------------------
use MLDBM qw ( DB_File );
use Fcntl;
tie ( %hash, 'MLDBM', 'testfile.db', O_CREAT|O_RDWR, 0666 )
or die "can't open tie to testfile.db: $!";
#-----------------------------
# this doesn't work!
$hash{"some key"}[4] = "fred";

# RIGHT
$aref = $hash{"some key"};
$aref->[4] = "fred";
$hash{"some key"} = $aref;
#-----------------------------