Perl dbmclose用法及代码示例

描述

此函数关闭散列和 DBM 文件之间的绑定。将 tie 函数与合适的模块一起使用。

用法

以下是此函数的简单语法 âˆ'

dbmclose HASH

返回值

此函数在失败时返回 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);