BerkeleyDB： Perlでデータベース削除

Perlでデータベース削除
★サンプル
delete_database.pl

---

#!/usr/bin/perl

use strict;
use BerkeleyDB;

my $database = "test.db";
my (%db_hash, $key, $value);

if ($ARGV[0] eq "") {

tie %db_hash, 'BerkeleyDB::Btree',
　　　　　　　　　-Filename => $database,
　　　　　　　　　-Flags => DB_TRUNCATE
　　or die "Cannot open $database: $!\n";
} else {

tie %db_hash, 'BerkeleyDB::Btree',
　　　　　　　　　-Filename => $database,
　　　　　　　　　-Flags => DB_CREATE
　　or die "Cannot open $database: $!\n";
　　delete $db_hash{$ARGV[0]};
}

untie %db_hash;

---

http://takusato.net/article/bdb_oboegaki.html

こちらを参考にさせていただきました。

実行するには削除したいデータのキーを第一引数に指定する。

$perl delete_database.pl　3