前端之家收集整理的这篇文章主要介绍了
如何有效地清空Perl DBM文件？，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
我继承了一段带有
代码片段的
代码,该
代码段清空
数据库,如下所示：
dbmopen (%db,"file.db",0666);
foreach $key (keys %db) {
delete $db{$key};
}
dbmclose (%db);
这通常是可以的,但有时数据库在调用此清理代码之前会变得非常大,而且通常是在用户想要执行重要操作时.
有更好的方法吗？
你可以
删除文件：
unlink $file;
由于您的第三个参数dbmopen是文件模式而不是undef,dbmopen将在下次调用时重新创建该文件：
dbmopen my %db,$file,0666;
原文链接：https://www.f2er.com/Perl/172061.html
