Perl dbmopen 函数

描述

此函数将EXPR指定的数据库文件绑定到哈希表HASH。如果数据库不存在，则使用MODE指定的模式创建该数据库。文件EXPR应在没有.dir和.pag扩展名的指定中。现在，已弃用旧的用法，取而代之的是“tie”及其中一个绑定的DBM哈希表模块，比如SDBM_File。

语法

以下是此函数的简单语法 -

dbmopen HASH, EXPR, MODE

返回值

此函数在失败时返回0，在成功时返回1。

请注意，当对大型DBM文件使用keys和values之类的函数时，它们可能会返回巨大的列表。你可能更愿意使用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);