#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use Encode qw/decode encode/;
use BerkeleyDB;

# DBの作成
my $filename = "bunrui5.db" ;

tie my %hash, "BerkeleyDB::Hash",
    -Filename => $filename,  # ファイル名
    -Flags    => DB_CREATE   # ファイルが無い時は作る
     or die "Cannot open file $filename: $! $BerkeleyDB::Error\n" ;

# hashへの値設定

my $file = shift;
open my $fh, "<" ,$file || die "cannot open db file 1\n";
while(my $line = <$fh>) {
  chomp($line); my @a = split(' ',$line);
  $hash{$a[0]} = $line;
}
close($fh);

# DBのクローズ
untie %hash;
