Perl dbmopen用法及代碼示例

描述

該函數將 EXPR 指定的數據庫文件綁定到哈希 HASH。如果數據庫不存在，則使用 MODE 指定的模式創建它。文件 EXPR 應指定為不帶 .dir 和 .pag 擴展名。現在不推薦使用 tie 和綁定的 DBM 哈希模塊之一，例如 SDBM_File。

用法

以下是此函數的簡單語法 âˆ'

dbmopen HASH, EXPR, MODE

返回值

此函數在失敗時返回 0，成功時返回 1。

請注意，鍵和值等函數在用於大型 DBM 文件時可能會返回巨大的列表。您可能更喜歡使用 each 函數來迭代大型 DBM 文件。

示例

以下是顯示其基本用法的示例代碼 -

#!/usr/bin/perl

# print out history file offsets
dbmopen(%HIST,'/usr/lib/news/history',0666);
while (($key,$val) = each %HIST) {
   print $key, ' = ', unpack('L',$val), "\n";
}
dbmclose(%HIST);