[perl] 버클리DB (dbf) 읽는 함수

sub get_dbf($)

{

    my ($old_home) = @_;

    my (%h, $k, $v);

    my $euckr_to_utf8 = Text::Iconv->new("EUC-KR","UTF-8");

    my $filename = $old_home;

    tie %h, "DB_File", $filename;

    my $h_arr = {};

    while (($k, $v) = each %h ) {

       # EUCKR -> UTF8

       $k = $euckr_to_utf8->convert($k);

       $v = $euckr_to_utf8->convert($v);

       # remove (^@ -> \x00) (^M -> \x08) (^E -> \x05)

       $k =~ s/[\t\r\n\x00\x08\x05]//g;

       $v =~ s/[\t\r\n\x00\x08]//g;

       $v =~ s/\x05/\|\^\|/g;

       #my @arr = split(/\|\^\|/, $v, 14);

       $h_arr->{$k}=$v;

    }

    untie %h;

    return $h_arr;

}