質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

CGI

CGI(Common Gateway Interface)とは、Webサーバー上でユーザプログラム動作させる仕組みのこと。また、動かす前提のプログラムをCGIと呼ぶこともあります。HTMLなどの静的な情報に限らず、プログラムの処理結果をベースにした動的情報の提供が可能です。

Q&A

解決済

2回答

2299閲覧

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

dev-beginner

総合スコア25

Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

CGI

CGI(Common Gateway Interface)とは、Webサーバー上でユーザプログラム動作させる仕組みのこと。また、動かす前提のプログラムをCGIと呼ぶこともあります。HTMLなどの静的な情報に限らず、プログラムの処理結果をベースにした動的情報の提供が可能です。

0グッド

0クリップ

投稿2021/10/28 08:31

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

$decoded = decode_base64($encoded);

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

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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ベストアンサー

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になります。

違います。

投稿2021/10/29 12:06

KojiDoi

総合スコア13669

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

dev-beginner

2021/10/31 22:54

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

0

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

perl

1use strict; 2use Encode qw/encode decode/; 3use MIME::Base64; 4 5my $encoded = "g3GDiQ=="; 6my $decoded = decode('Shift_JIS', decode_base64($encoded)); 7 8print encode('UTF-8', $decoded); 9 10# 11ヒラ

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

投稿2021/10/28 09:02

編集2021/10/28 09:03
melian

総合スコア19618

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

dev-beginner

2021/10/28 23:52

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

2021/10/28 23:53

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

2021/10/31 22:54

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問