【perl】機種依存文字のUTF８→EUC変換

Question

###■ やりたいこと
髙（はしご高）や、﨑といったような、機種依存文字の文字コードを
UTF8からEUCに変換し、文字化けさせずに表示させたい。

###■ 実行環境
OS：CentOS6.7 32bit
perl v5.10.1
Jcode ver2.7

###■ やったこと
perlのcgiプログラムにおいて、UTF8の文字列をEUCに変換し、表示するプログラムを
作成したいとおもっています。

UTF8からEUCへの変換はJcodeを用いています。
下記に、作成したプログラムを示します。
なお、作成したプログラム自体は、UTF8です。

use strict;
use Jcode;

my $string = "山﨑\n";

Jcode::convert(\$string,'euc','utf8');

print $string;

このプログラムをサーバー上で実行すると、機種依存文字の「﨑」が文字化けをし、
「？」となって出力されてしまいます。
（当方、SSHクライアントはTeraTermを利用していますが、「設定>端末」から
漢字-受信をEUCにして、結果を確認しています。）

通常の機種依存ではない漢字などは、問題なく変換できるのですが、
機種依存文字だけが、文字化けを引き起こしてしまいます。

###★ 質問したいこと
前述のような、UTF8の機種依存文字を、文字化けさせずにEUCに変換する方法を教えていただきたいです。
可能であれば、具体的なソースコードを提示して頂けると大変参考になります。

そもそもJcodeを使った方法で、機種依存文字をUTF8からEUCに変換することはできるのでしょうか？もし出来ないのであれば、代替案を教えて頂けますと助かります。

なにか足りない情報等あれば、その旨をお伝え頂けると幸いです。
どうぞ、よろしくお願い致します。

Answer 1

回答頂いた方、ありがとうございます。
思案していたところ、自己解決しました。
Jcodeではなく、Unicode::Japaneseを利用したらうまくいきました。

use strict;
use Jcode;
use Unicode::Japanese;

my $string = "山﨑\n";

$string = Unicode::Japanese->new($string)->euc;

print $string;

とりあえずは問題ないので、一旦質問は閉じさせていただきます。
ただ、文字コード周りは自分が思っている以上にやこしそうですので、
今後しっかり理解していく必要がありそうです。
（"とりあえず"の理解では後々問題起きそうですし・・）

ありがとうございました。

Answer 2

（ここでいう「JIS」はJIS X 2013を意味します）

• 﨑はJIS第三水準漢字です。「機種依存」などではありません。
• 髙はJISにはないもののUnicodeにあります。「機種依存」などではありません。
• EUC-JPはJISの文字集合を符号化するものです。JISに含まれない「髙」を符号化する方法はありません。
• 第三水準漢字も表現できるEUC-JPとしてはEUC-JIS-2004というエンコーディングがあります。ただし、EUC-JP-2004の実装は現時点では存在しないはずですので、変換するライブラリも表示する手段もありません。

Comments

[Reiku]

コメントありがとうございます。
一概にSJISとかEUCとか言っても色々な種類があるのですね。参考になります。

[退会済みユーザー]

use Encode::JISX0213;
なんてのもあるので、選択するエンコードによってなんとかなるケースもあるかと思われます。

[yuba]

> use Encode::JISX0213;

このオプションは有望ですね。
これで変換できたとしたらあとは表示側を用意できるかですが。

Answer 3

Encode::JISX0213 - JIS X 0213 encodings - metacpan.org
https://metacpan.org/pod/Encode::JISX0213
Encode::JIS2K - JIS X 0212 (aka JIS 2000) Encodings - metacpan.org
https://metacpan.org/pod/Encode::JIS2K

・・とか試してはいかがでしょうか。

Answer 4

https://www.softel.co.jp/blogs/tech/archives/2526

perl でも、mb_convert_string が使えるなら、これで解決するのでは？

Comments

[Reiku]

コメントありがとうございます。
perlではmb_convert_stringは使えないような・・？
軽くしか調べてませんので意見を参考に、詳しく調べてみますね。