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