ソース中の文字列と、DBから取得した文字列を同時に表示すると文字化け

Question

perl 5.8.6を使用しています。
MySQLから取り出したデータを、ソース中の文字列と同じprint文の中で
表示させようとした場合に文字化けしてしまいます。
文字コードはMySQL, ソースファイルともUnicode(UTF-8)を使用しています。

具体的には
$a[0]
にデータベースから取り出した文字列が入っているとすると、
ソース中で
print "テスト：$a[0]";
とか
print <<END_OF_TEXT;
テスト：$a[0]
END_OF_HTML
とすると、$a[0]の部分が文字化けしてしまうのですが、
print "テスト：";
print "$a[0]";
と書くと、文字化けせずに表示されます。

ちょっと日本語を使ったり、データベースから取り出した文字列を使う箇所が多いプログラムなので、ひとつひとつprint文を分けるのは大変なので避けたいです。
何か文字化けしない回避策や、原因について考えられることがありましたら教えていただけると大変助かります。

g_p_ · Accepted Answer

こんにちは、

MySQLは実験してませんが、外部からきたUTF-8な文字列のつもりで、
UTF-8.txtに

日本語

と一行書いて、UTF-8N で保存。

以下のスクリプトを実行すると、
#! /usr/bin/perl
use 5.8.0;
use strict;
use warnings;
use utf8;
use Encode;

open my $fh , '<' , "utf8.txt" or die;

my $line = <$fh>;
my $data = '日本語';

$line = decode('UTF-8' , $line);

print encode 'shiftjis' , << "EOD";
読み込んだデータは:$line
スクリプト内で定義したデータは:$data
EOD
__END__

読み込んだデータは:日本語
スクリプト内で定義したデータは:日本語

と表示されます。（ActivePerlなので print 時は shiftjisです。)
>$line = decode('UTF-8' , $line);
この行が無かったら文字化けします。

もしかしたら、MySQLから取得したデータを decode したら良いかもです。

はずしてたらごめんなさい。

sakusaker7 · Answer

多分utf8フラグの問題だと思います。
#2,3の方の回答にあるようにすれば大丈夫だと思いますが、

入出力がすべてutf8なら、今回はuse Encodeは必要ないです。
utf8フラグをつければいいだけなので
DBからとってきたデータ($stringとします)
に対して
utf8::upgrade($string);
をしてみてください。

一応念のための確認ですが

> print "テスト：";
> print "$a[0]";
> と書くと、文字化けせずに表示されます。

ここで
print utf8::is_utf8($a[0]);
としたときの出力はどうなっていますか?

g_p_ · Answer

こんにちは、＃２です。

思いっきり間違ってました。

>UTF-8.txtに
>日本語
>と一行書いて、UTF-8N で保存。

じゃなくて、utf8.txt です。ファイル名を間違ってました。

あと、スクリプトももちろん UTF-8N で保存です。

すみません。

sakusaker7 · Answer

Perl スクリプトのほうで、use utf8 とかは宣言していますか?

ソース中の文字列と、DBから取得した文字列を同時に表示すると文字化け

こんにちは、

多分utf8フラグの問題だと思います。

こんにちは、＃２です。

Perl スクリプトのほうで、use utf8 とかは宣言していますか?

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング