jcode.plのかわり

jcode.plの
jcode::tr()
のかわりを探しています。

jcode.plの
jcode::tr(\$val,'０-９Ａ-Ｚａ-ｚ　（）＿＠－','0-9A-Za-z ()_@-');
をPerl5.18.2で使用するとエラーが出てしまいます。これを回避したい。

プログラムがUTF-8であれば
$val =~ tr/０-９Ａ-Ｚａ-ｚ　（）＿＠－/0-9A-Za-z ()_@-/;
のようにすれば実現可能みたいですが、プログラムはEUCで書かれています。
影響範囲からプログラムの文字コードをかえることはできれば避けたい。

一文字ずつ変換することも考えましたが、この方法ではパフォーマンスに懸念があります。

jacode.plなるものもありますが、これに置き換えるだけでは文字化けしてしまいました。

jcode::tr()のかわりになるような手段はあるのでしょうか？

No.7 ベストアンサー 回答者： kumoz 回答日時： 2014/03/12 15:43

UTF-8 の内部文字列にすれば、tr で文字単位で変換することができます。

プログラムのソースが EUC-JP でとのことなので、少し厄介なところはあります。

use strict;
use Encode;
use NKF;

my $str = "\xAD\xEA０１01アア";
$str = decode 'utf8', nkf('-Ew', $str);
my $from = decode 'utf8', nkf('-Ew', '０-９Ａ-Ｚａ-ｚ　（）＿＠ー');
eval "\$str =~ tr/$from/0-9A-Za-z ()_\@-/;";
$str = nkf '-We', encode('utf8', $str);
print "$str\n";

私の Linux 上のパソコンでは、上記のコードで (株) は文字化けせずに全角の０と１を半角に変換します。

この回答へのお礼

ありがとうございます。
無事変換できました。

意図してない半角カナまで全角になってますが、
それも必要なことなので問題ありませんでした。

お礼日時：2014/03/12 15:56

No.6 回答者： kumoz 回答日時： 2014/03/12 06:03

(株) のような特殊な文字では、Jcode から利用している Encode.pm でもうまく行かないことがあります。

(株) の場合は、「euc-jp → utf8」は変換できるが、「utf8 → euc-jp」は変換できないようです (No4 の補足に書かれているとおりです)。

use Encode;
print encode('utf8', decode('euc-jp', "\xAD\xEA")), "\n"; # 端末UTF-8: OK
print encode('euc-jp', decode('utf8', "\xE3\x88\xB1")), "\n"; # 端末euc-jp: NG

日本語変換ユーティリティ nkf が NKF.pm を提供しています。Encode.pm で「UTF-8バイト <-> UTF-8内部」を、NKF.pm で「UTF-8バイト <-> EUC-JP」を処理すると、うまく行くかも？

この回答への補足

文字を
EUC→UTF-8→EUC
にするだけなら
Unicode::Japanese
を使えば可能でした。

問題は任意の文字を変換することです。
０-９ａ-ｚ
を
0-9a-z
のように半角にするとか。全角文字を全部半角にすることは出来るんですが
上記のように英数字だけとかが出来ないんです。

補足日時：2014/03/12 14:29

No.5 回答者： kmee 回答日時： 2014/03/11 23:30

「文字化け」とかいう曖昧な情報では埒があきません。

odを使って、どんなデータになっているか調べましょう

#1にあったスクリプトを
LANG=C od -t x1c スクリプト
と16進と文字とで表示します。
非ASCII文字を表示させないために、LANG=Cにしておきます。
次のように表示されるかと思います。
0000000 75 73 65 20 4a 63 6f 64 65 3b 0a 0a 6d 79 20 24
　　　　　 u s e J c o d e ; \n \n m y $
0000020 73 74 72 20 3d 20 22 28 b3 f4 29 a3 b0 a3 b1 30
　　　　　 s t r = " ( 263 364 ) 243 260 243 261 0
# ここの特性上、位置がずれてしまいます
EUC-JPで書いてあれば、「株」にあたるコードは b3 f4 になっているはずです。
8a 94 ならShift JIS, e6 a0 aa ならUTF-8です。


次に、実行結果のダンプを取ります
perl スクリプト | LANG=C od -t x1c
本来なら、 ここでも b3 f4 になっているはずです。
もし b3 f4 ならば、使っている端末アプリケーションが文字化けの原因です。(LANGはeucJPになっているけど、端末の文字コード設定が別なものになっている、とか)
もし、それ以外のコードになっているなら、JCodeでの変換がなにかうまくいっていない、ということになります。

この回答への補足

いろいろ考えていただきありがとうございます。

１つお詫びです。
普通の感じの「株」でなく「(株)」のような機種依存文字が化けます。

教えて頂いた方法でいろいろ試してみました。

まず「株」で
何も変換せずダンプ
b3 f4 0a
UTF-8に変換
e6 a0 aa 0a
UTF-8に変換後、EUCに変換
b3 f4 0a

元に戻っているのでロジックや確認方法は正しく行えていると思います。
次に「(株)」
何も変換せずダンプ
ad ea 0a
UTF-8に変換
e3 88 b1 0a
UTF-8に変換後、EUCに変換
3f 0a

こっちは元に戻りませんでした。
やはりJcodeの文字コード変換では対応出来ていない部分があるようです。

補足日時：2014/03/12 14:15

No.4 回答者： kichi8000 回答日時： 2014/03/11 10:46

文字コードの指定には、"jis"、"sjis"、 "euc"、"ucs2"、"utf8"が使えます。

my $str = "(株)０１01アア";
$codes = Jcode::getcode();
$str = Jcode->new( $str, 'euc')->utf8;

このutf8変換後の$codesと$strの文字列内容を教えていただけませんか。
ucs2ではないかと思うので、こうするとどうでしょうか。

my $str = "(株)０１01アア";
$codes = Jcode::getcode();
$str = Jcode->new( $str, 'ucs2')->utf8;

この回答への補足

$codesには
ascii
が入ってました。

$str = Jcode->new( $str, 'euc')->utf8;
で実行した結果、コンソールの表示文字列をUTF8にしたら化けてなかったので
UTF8には変換出来ているようです。

この状態で
$str = Jcode->new( $str, 'utf8')->euc;
を実行すると株が化けます。
JcodeではUTF-8からEUCに変換できない文字があるんですかね？

補足日時：2014/03/11 11:44

No.3 回答者： kmee 回答日時： 2014/03/10 21:12

私の手許の環境では文字化けしません。

UTF-8の端末で実行していたり、スクリプトがEUC-JPではなかったりしませんか?

この回答への補足

Solaris10でLANGはja_JP.eucJPになってるんですけどねぇ。
スクリプトもEUCになってますし。

普通の文字は文字化けしませんが、カッコ株のような特殊な文字がダメです。

補足日時：2014/03/11 10:14

No.2 回答者： kichi8000 回答日時： 2014/03/10 16:53

文字列をUTF-8に変換してから文字列操作するのが基本ですよ。

この回答への補足

カッコ株はEUC→UTF-8→EUCにするだけでも文字化けしてしまいます。

----------------------------------
use Jcode;

my $str = "(株)０１01アア";

$str = Jcode->new( $str, 'euc')->utf8;
$str = Jcode->new( $str, 'utf8')->euc;

print $str."\n";
----------------------------------
これはまた別問題ですが・・・・

補足日時：2014/03/11 10:12

No.1 回答者： kichi8000 回答日時： 2014/03/10 15:42

Jcode.pm などはどうでしょうか。

Jcode呼び出しの"J"は大文字になります。

http://openlab.jp/Jcode/index-j.html

この回答への補足

ご回答ありがとうございます。

use Jcode;

my $str = "(株)０１01アア";

my $j = Jcode->new($str, 'euc');

$str= $j->tr('０-９Ａ-Ｚａ-ｚ　（）＿＠－','0-9A-Za-z ()_@-');

print $str."\n";

こんな感じで実行すると、全角数字を半角に変換は出来ましたが
(株)が文字化けしてしまいまいした。

補足日時：2014/03/10 16:17