Perl 的 DBM 文件操作实例

#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);

编程技巧