Perl(CGI)にて文字化けがするので対処方法をご教授願いたいです

Question

Perlにて文字化けするので対処方法を教えて頂けないでしょうか。
BASE64エンコードした文字列【g3GDiQ==】(ヒラ)を

$decoded = decode_base64($encoded);

のようにデコードすると【\x{fffd}q\x{fffd}\x{fffd}】のように文字化けしてしまいます。
文字化けしない方法をご教授頂けないでしょうか。

拙い説明で申し訳ありませんが、何卒宜しくお願い致します。

Answer 1

decode_base64した結果はshift_jisエンコードされているので、これをperl内部文字列化（デコード）し直した後に、最終目的に合わせてエンコードする必要があります。

use strict;
use warnings;
use Encode qw/encode decode/;
use MIME::Base64;
use utf8;

binmode STDOUT, ':utf8';
# binmode STDOUT, ':encoding(cp932)'; # in case of shift-jis

my $encoded = "g3GDiQ==";
my $decoded = decode_base64($encoded);
my $decoded2 = decode('shift_jis', $decoded);
print "$decoded2\n";

ここでは最後のエンコードに明示的に関数を使わず、binmodeの設定で標準出力で一括エンコードする設定にしています。shiftjisが最終的に必要ならコメントアウトしてある方を活かしてください。

perlの内部文字列はeucになります。

違います。

Comments

[dev-beginner]

KojiDoi様
ご返信遅くなり申し訳ありません。ご指摘の通りエンコードするとうまくいきました。
ありがとうございました。大変助かりました。

Answer 2

元の文字列のエンコーディングが Shift JIS だと思われますので、エンコーディングを指定して decode してみてはどうでしょうか。

use strict;
use Encode qw/encode decode/;
use MIME::Base64;

my $encoded = "g3GDiQ==";
my $decoded = decode('Shift_JIS', decode_base64($encoded));

print encode('UTF-8', $decoded);

#
ヒラ

※ 表示する際に(最後の print 文)、UTF-8 に変換しています。

Comments

[dev-beginner]

melian様
ご回答ありがとうございます。デコード時点では内部文字列「ヒラ」が取得できているのですが、
最終的に「ヒラ」の文字列をWindowsシステム(ShiftJIS)へ送信する必要があり、「encode('Shift_JIS',$decoded)」とすると、
「\x{fffd}q\x{fffd}\x{fffd}」のようになってしまいます。
何か対処方法はありますでしょうか？

[dev-beginner]

perlの内部文字列はeucになります。

[dev-beginner]

melian様
色々とご指摘頂いてありがとうございました。
無事解決致しました。感謝いたします。