今更ながらdbmopenでutf8環境にハマってます。

質問

今更ながらdbmopenでutf8環境にハマってます。

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use open ":utf8";
use open ":std";

my $key1='test';
my $key2='test2';
my $val1 = 'あああ';
my $val2 = 'いいい';

print "$key1 $val1\n";
print "$key2 $val2\n";

open(my$fh,">./utf8DB2");
print $fh "$val1\n";
print $fh "$val2\n";
close $fh;

my %HASH;
dbmopen(%HASH, 'utf8DB', 0666);
#utf8::decode($val1) if utf8::is_utf8($val1);
#utf8::decode($val2) if utf8::is_utf8($val2);
#下記２行が無いとWide character in null operation at ...
utf8::encode($val1)if utf8::is_utf8($val1);
utf8::encode($val2)if utf8::is_utf8($val2);
$HASH{$key1}="$val1";
$HASH{$key2}="$val2";
dbmclose(%HASH);

my%DBM;
dbmopen(%DBM,'utf8DB',0666);
while ( my( $key , $val ) = each %DBM ){
#utf8::decode($val) if utf8::is_utf8($val);
#utf8::encode($val) if utf8::is_utf8($val);
print "key1 : $key 値 : $val\n" ;
}
foreach my$key ( keys( %DBM ) ) {
#utf8::decode($DBM{$key}) if utf8::is_utf8($DBM{$key});
#utf8::encode($DBM{$key}) if utf8::is_utf8($DBM{$key});
print "key2 : $key 値 : $DBM{$key}\n";
}
dbmclose(%DBM);

上記スクリプトを実行時、値を表示する際に文字化けしているのですが、これは、dbmopenで保存時既に文字化けしているのでしょうか、それとも表示する際、適切にエンコードorデコード出来てないから文字化けしているのでしょうか。

また、どのようにすれば解決可能かご教授願えませんでしょうか。

いっその事、DataDumperで保存し、読み出すように修正しようかとも思うのですが、tieに変更した場合も、同様に文字化けするのでしょうか・・

その辺りも含め、アドバイス他ご教授願えますと助かります。

回答No.1

_--_1l1_1_ · ベストアンサー

何をやろうとしているのか不明だけど、とりあえず。

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Encode;

my $key1 = 'test';
my $key2 = 'test2';
my $val1 = 'あああ';
my $val2 = 'いいい';

my $file = "utf8DB2";
open my $fh, '>', $file or die "$!:$file";
binmode $fh, ':encoding(utf8)';
print {$fh} "$val1\n";
print {$fh} "$val2\n";
close $fh or die "$!:$file";

dbmopen my %hash, $file,, 0666 or die "$!:$file";
$hash{$key1} = Encode::encode_utf8($val1);
$hash{$key2} = Encode::encode_utf8($val2);
dbmclose %hash or die "$!:$file";

# cp932 = Windows shift-jis
my $locale='cp932';
dbmopen my %dbm, $file, 0666 or die "$!:$file";
for my $key ( keys(%dbm) ) {
my $val = $dbm{$key};
Encode::from_to( $val, 'utf8', $locale );
print "key2 : $key val : $val\n";
}
dbmclose %dbm or die "$!:$file";

お礼

ご教授頂き、ありがとうございます。
下記perlのバージョン２つで確認してみたのですが、
$ perl -v
This is perl, v5.8.9 built for i686-linux
$ perl -v
This is perl, v5.10.0 built for i386-linux-thread-multi
の

$ locale
LANG=ja_JP.UTF-8
で、の環境で確認してみたのですが、
お教え頂いた内容を適切に修正し実行してみましたが、何故か文字化けしている状況です。

かなりハマっていたのですが、ふいに
自分のテストバージョンの方で

#use utf8;
#use open ":utf8";
#use open ":std";

とコメントアウトし作成したファイルを一旦削除する事で文字化けを起こさず表示確認する事が出来ました。

その状況で
ご教授頂いたスクリプトの方を、
my $locale='utf8';
と修正しているのですが、こちらの方は文字化けをする状況です。

しかし、望んでいる形を実現出来ましたので、解決と致したいと存じます。

毎度ご教授頂きありがとうございます。