perl - 如何有效地清空 Perl DBM 文件？

Question

我继承了一段代码，其中包含一个清空数据库的代码片段，如下所示:

dbmopen (%db,"file.db",0666);
foreach $key (keys %db) {
  delete $db{$key};
}
dbmclose (%db);

这通常没问题，但有时在调用此清理代码之前数据库会变得非常大，并且通常是在用户想做一些重要的事情时。

有更好的方法吗？

Answer 1

您可以直接删除该文件:

unlink $file;

自从你的第三个参数 dbmopen是文件模式，而不是 undef，dbmopen 将在下次调用时重新创建该文件:

dbmopen my %db, $file, 0666;