我是 gdbm 的新手,我想在 Perl 中使用它。我知道 Perl 默认附带一个模块(GDBM_File)。现在,当我尝试最简单的示例时,即:
#!/usr/bin/perl
use strict;
use warnings;
use GDBM_File;
my $dbfile = '/tmp/test.gdbm';
my $ok = tie(my %db, 'GDBM_File', $dbfile, &GDBM_WRCREAT, 0664);
die "can't tie to $dbfile for WRCREAT access: $!" unless $ok;
$db{test} = 1;
untie %db;
并执行它我收到以下警告:
untie attempted while 1 inner references still exist at ./gdbm-test line 13.
我阅读了perl 文档(请参阅提供的链接中的“untie gotcha”),但该解释似乎不适用于此处,因为很明显%db
代码中没有任何引用指向它。
尽管如此,代码似乎仍然有效,因为当我检查数据库文件时,我得到了正确的结果:
bash$ echo list | gdbmtool /tmp/test.gdbm
test 1
为什么会出现此警告,我该如何摆脱它?