perl 清空dbm文件

[perl]代码库

#-----------------------------
dbmopen ( %HASH, $FILENAME, 0666 )         or die "Can't open FILENAME: $!\n";
%HASH = ();
dbmclose %HASH;
#-----------------------------
use DB_File;

tie ( %HASH, "DB_File", $FILENAME )        or die "Can't open FILENAME: $!\n";
%HASH = ();
untie %hash;
#-----------------------------
unlink $FILENAME
or die "Couldn't unlink $FILENAME to empty the database: $!\n";
dbmopen ( %HASH, $FILENAME, 0666 )
or die "Couldn't create $FILENAME database: $!\n";
#-----------------------------