BerkeleyDB： Perlでデータベース参照

Perlでデータベース参照
★サンプル
view_database.pl

---

#!/usr/bin/perl

use strict;
use BerkeleyDB;

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

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

　　while (($key, $value) = each %db_hash) {
　　　　print "$key,$value\n";
　　}

untie %db_hash;

---

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

こちらからいただきました。


実行はふつーに。
$ perl view_database.pl