在perl使用DMB數據庫的方法

DBM簡介：

DBM是一種文件數據儲存數據，由于采用哈希結構進行連接，因此具有一些數據庫的特點功

能與普通文本數據庫相比，具有穩定，檢索速度快和支持量大的優點，由于DBM是從Unix系統

中移植來的，因此在Unix/linux系統中優點比較明顯，而在NT系統中則不太理想，在NT中使用

有時會另數據文件變得十分龐大。

　

DBM的使用：

數據庫采用關聯數組方式保存數據,并與關聯數組結合使用。

打開文件：

dbmopen(%USERFILE,"dbfilename",0666);

此時將把數據值賦給USERFILE關聯數組。

關閉文件：

dbmclose(%USERFILE);

添加數據：

dbmopen(%USERFILE,"dbfilename",0666);

$USERFILE{$no}=value;

dbmclose(%USERFILE);

$no是數組的關聯值，必須唯一，否則該關聯數據會被更新。

刪除數據：

dbmopen(%USERFILE,"dbfilename",0666);

delete $USERFILE{$no};

dbmclose(%USERFILE);

$no是要刪除的關聯值。

更新數據：

dbmopen(%USERFILE,"dbfilename",0666);

$USERFILE{$no}=value;

dbmclose(%USERFILE);

歷遍數組：

dbmopen(%USERFILE,"dbfilename",0644);

%TEMP=%USERFILE;

dbmclose(%USERFILE);

foreach (keys(%TEMP)){

$value=$TEMP{$_};

}