BerkeleyDB： Perlでデータベース作成

Perlによるデータベース作成。
★サンプル
create_database.pl

---

#!/usr/bin/perl

use strict;
use BerkeleyDB;

my $database = "test.db";
my %db_hash;

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

　　while (<>) {
　　　　chomp;

　　　　my ($key, $value) = split(/\,/);
　　　　$db_hash{$key} = $value;
　　}

untie %db_hash;

---

ほぼ
http://takusato.net/article/bdb_oboegaki.html
こちらからいただきました。

実行するにはまずデータファイルを作成します。
ファイル名は任意

#Sample#
test.data
1,aaaaa
2,bbbbb
3,ccccc
4,ddddd
こんな感じのを作る。
キーとデータの間は「,」カンマで区切る。

実行↓
$ perl create_database.pl < test.data