神奇的perl dbm

 

perl的dbm是一种以文件形式存储的hash 

例子：

1、写入

$str ='abe'x50;

dbmopen(%file,"E:/temp/h",0666); 

foreach $i (1..524560){

$file{$i}= $str;

print $i/524560,"\n";

}

dbmclose(%file);

 

2、读取

 

dbmopen(%file,"E:/temp/h",0666); 

print $file{3};

dbmclose(%file);    

 

注：对%file的操作需在dbopen与dbclose代码段之间，否则出错