Perl dbmopen 函数

描述

该函数将EXPR指定的数据库文件绑定到哈希值HASH。如果数据库不存在，则使用MODE指定的模式创建它。应指定不带 .dir 和 .pag 扩展名的文件EXPR 。现在已弃用，转而使用 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);