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

发布时间：2020-12-15 21:51:48 所属栏目：大数据来源：网络整理

导读：我继承了一段带有代码片段的代码,该代码段清空数据库,如下所示： dbmopen (%db,"file.db",0666);foreach $key (keys %db) { delete $db{$key};}dbmclose (%db); 这通常是可以的,但有时数据库在调用此清理代码之前会变得非常大,而且通常是在用户想要执行重要

我继承了一段带有代码片段的代码,该代码段清空数据库,如下所示：

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

这通常是可以的,但有时数据库在调用此清理代码之前会变得非常大,而且通常是在用户想要执行重要操作时.

有更好的方法吗？

解决方法

你可以删除文件：

unlink $file;

由于您的第三个参数dbmopen是文件模式而不是undef,dbmopen将在下次调用时重新创建该文件：

dbmopen my %db,$file,0666;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!