#!/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,# ファイル名
    or die "Cannot open file $filename: $! $BerkeleyDB::Error\n" ;

# hashへの値設定

while(my $line = <>) {
  chomp($line); my @a = split(' ',$line);
  my $b = $hash{$a[0]};
  print $b,"\n";
}

# DBのクローズ
untie %hash;

