Shift-jisのPerlから、UTF-8、EUC、Shift-jisの３つのエンコードテキストを生成

質問

Shift-jisで作ったPerlにて、テキストをEUC、UTF-8、Shift-jisにエンコードし外部検索サイト等にテキストリンクを飛ばしたいのですが、うまくいきません。

過去ログにUTF-8から、EUC、UTF-8、Shift-jisへのエンコード方法をみつけ
http://oshiete1.goo.ne.jp/qa3745875.html
試行錯誤しましたが、Shift-jisからはうまくいきませんでした。

perl のバージョンは5.8.8です。
ご教示のほどよろしくお願いします。

回答No.2

okmotokun · ベストアンサー

こんなコードでテストしてみました。sjis <-> jis,euc,utf8 すべてうまくいけましたよ。

#!/usr/bin/perl
use Jcode;
print "content-type: text/html; charset=Shift_JIS\n\n";

$sjis='Japan,東京都千代田区霞が関1-1-1 コッカイビル１Ｆ';

print '<font color=red>';
print Jcode::getcode($sjis).' -> </font>';
$jis=Jcode::convert(\$sjis,'jis');
print '<font color=red>';
print Jcode::getcode($jis).' => </font>';
print $jis." <br>\n";
print '<font color=red>';
print Jcode::getcode($sjis).' -> </font>';
$euc=Jcode::convert(\$sjis,'euc');
print '<font color=red>';
print Jcode::getcode($euc).' => </font>';
print $euc." <br>\n";
print '<font color=red>';
print Jcode::getcode($sjis).' -> </font>';
$utf8=Jcode::convert(\$sjis,'utf8');
print '<font color=red>';
print Jcode::getcode($utf8).' => </font>';
print $utf8." <br>\n";
print "<br>\n";
print '<font color=red>';
print Jcode::getcode($jis).' -> </font>';
$sjis=Jcode::convert(\$jis,'sjis');
print '<font color=red>';
print Jcode::getcode($sjis).' => </font>';
print $sjis." <br>\n";
print '<font color=red>';
print Jcode::getcode($euc).' -> </font>';
$sjis=Jcode::convert(\$euc,'sjis');
print '<font color=red>';
print Jcode::getcode($sjis).' => </font>';
print $sjis." <br>\n";
print '<font color=red>';
print Jcode::getcode($utf8).' -> </font>';
$sjis=Jcode::convert(\$utf8,'sjis');
print '<font color=red>';
print Jcode::getcode($sjis).' => </font>';
print $sjis." <br>\n";
__END__

お礼

貴重な情報をいただき誠にありがとうございました。

当方の設定が悪いのか残念なことに動作確認することができませんでした。
頂戴した情報を参考にし、以下のコードで期待する結果を得ることができました。

$sjis='Japan,東京都千代田区霞が関1-1-1 コッカイビル１Ｆ';
$K_euc=$sjis;
$K_utf=$sjis;

$sjis =~ s/(\W)/$escape{$1} ||= sprintf("%%%02X", ord($1))/eg;

Jcode::convert(\$K_euc, 'euc');
$K_euc =~ s/(\W)/$escape{$1} ||= sprintf("%%%02X", ord($1))/eg;

Jcode::convert(\$K_utf, 'utf8');
$K_utf =~ s/(\W)/$escape{$1} ||= sprintf("%%%02X", ord($1))/eg;

回答No.1

_--_1l1_1_

use encoding 'shiftjis';を使えばいいと思いますが、100%対応するのは、難しいかもしれません。参考URLを参照して下さい。

参考URL：

http://hardsoft.at.webry.info/200801/article_6.html

お礼

貴重な情報をいただき誠にありがとうございました。
また１つ良い知識を得ることができました。