"utf8"→ "sjis" の 文字化け・・・

質問

xml内のデータで
utf8でかかれた
文字列中の ～　が

XPATHでデータを取得し
シフトジスに変換すると

Encode::encode
ローカルでは
? になり
サーバーでは
?のあとに文字化けします。

Jcodeだと
Jcode::convert($rValue, "sjis", "utf8");
ローカルでは
??
サーバーでは
〓
になります。

windowsで作った別のそふとや
ブラウザ、メモ帳では
正常にxml内のデータで
～
　が入っていることは確認できています。

XPATH(findvalue)の値だけを　ファイルに書き込んで
メモ帳で表示すると　正常に　～　が表示されるので
Encode::encode　、Jcode
の問題のようなのですが　きちんと表示させる方法がわかりません。

　なにか　設定をご存じでしたら　よろしくお願いします。

回答No.1

BLUEPIXY · ベストアンサー

ユニコード：ＦＦ５Ｅ
シフトＪＩＳ：８１６０
がマッピングされていないことで起こることですね。
Ｐｅｒｌの問題というより、
ＪＡＶＡでも同様の問題が起こることから、
もともとそういう規定になっているのだと思います。（自信なし）
メジャーな対処の方法があるかどうかは知らないのですが、
いったんＵＴＦ８上で、変換可能な文字並びに置き換えて、
シフトＪＩＳ変換後、変換し直すという方法はどうでしょうか
use Encode;
#～のUTF8生コードを%nami%に置き換える
$data =~ s/\xEF\xBD\x9E/%nami%/g;
#utf8からshiftjisに変換
Encode::from_to($data,"utf8","shiftjis");
#%nami%から～のシフトＪＩＳ生コードに置き換える
$data =~ s/%nami%/\x81\x60/g;
print $data;

お礼

他の文字がまざっていると
$data =~ s/\xEF\xBD\x9E/%nami%/g;
の正規表現は　置換されないようなので

とりあえず
use bytes;
my $LenNami = length("\xEF\xBD\x9E");
while ((my $i = index($data,"\xEF\xBD\x9E",0)) >= 0)
{
$data = substr($data,0,$i).'%nami%'
.substr($data,$i+$LenNami,length($data)-$LenNami) ;
}
no bytes;

で置換しました。

$data =~ s/%nami%/\x81\x60/g;
の式のほうはきちんと置換されます

とりあえず解決しました
　ありがとうございました。

補足

301Cとff5eと　２個あるんですね・・・

置換を試してみましたが、
単独では置換できるのですが
他の文字が混ざっていると置換されません・・・

正規表現で使えないような文字がまざっているのでしょうか・・・

午前中格闘して疲れたので、また明日確認します

回答No.2

BLUEPIXY

どっかでみたことあるなあと思っていたら、過去に同様の質問がありました。
http://okwave.jp/kotaeru.php3?q=1540626
こちらの方法でも良いと思います。