Perl 的 DBM 文件操作实例

清华大佬耗费三个月吐血整理的几百G的资源,免费分享!....>>>

#Format:
#dbmopen(hash, dbfilename, mode);
#tie(hash, Module , dbfilename, flags, mode);

dbmopen(%myhash, "mydbmfile", 0666);
tie(%myhash,SDBM_File, "mydbmfile", O_RDWR|O_CREAT,0640);