うまくいかない全角→半角変換の仕方

質問

あちこち見てまわったのです。
とほほの ～ から個人の小規模なページまで。

$add ='ｔｅｓｔ＠ｔｅｓｔ．ｎｅ．ｊｐ';

jcode::convert(\$add, 'euc');

jcode::tr(\$add, '０-９Ａ-Ｚａ-ｚ', '0-9A-Za-z');

jcode::convert(\$add, 'sjis');

print $add;

・・・＠マークがまあ、この場合変換対象にはいって
ないにしろ、なぜか表示されるものは、数字の
「11」 とか 文字列を変えると場合によっては「8」
とか出てきます。
また(２度目)借りているサーバー環境が悪いんで
しょうか？？？
ほとほと参ってます(泣)。

回答No.4

tfp · ベストアンサー

スクリプトは Shift_JIS で書いてあるんですよね？
だとしたら、この場合 trの第2引数 '０-９Ａ-Ｚａ-ｚ' もeucにしないとだめでしょう。

$add ='ｔｅｓｔ＠ｔｅｓｔ．ｎｅ．ｊｐ';

jcode::convert(\$add, 'euc');

$euc_zen = '０-９Ａ-Ｚａ-ｚ';
jcode::convert(\$euc_zen, 'euc');

jcode::tr(\$add, $euc_zen, '0-9A-Za-z');

jcode::convert(\$add, 'sjis');

print $add;

お礼

やはりSJISでやるのはあきらめた方がいいのか・・・
そう思いかけた矢先、ftp さんのご指摘で、ハッと
気が付きました。おっしゃる通りです。
本日帰ったら試してみます。
回答に心より感謝いたします。

補足

お名前間違えていました。大変失礼いたしました！！！

回答No.3

haporun

# 正規表現では変換不可な連番でないパターンテーブル
# ただしここでは半角文字が書けないので
# 正確には'半角' => '全角' になっています。
%utf8tbl = (
'￥' => '\\',

'。' => '。', '「' => '「', '」' => '」', '、' => '、', '・' => '・',

'ッ' => 'ッ', 'ー' => 'ー',

'タ' => 'タ', 'チ' => 'チ',

'ワ' => 'ワ', 'ヲ' => 'ヲ', 'ン' => 'ン', '゛' => '゛', '゜' => '゜',

'ヴ' => 'ヴ',

'ダ' => 'ダ', 'ヂ' => 'ヂ', 'ヅ' => 'ヅ', 'デ' => 'デ', 'ド' => 'ド'
);

# いかんUTF-8文字を変換
sub utf8chconv($){
$_ = $_[0];

if(/\xef\xbd([\x80-\x9e])/){ # ｀ａ..ｚ｛｜｝～
$ret = chr(ord($1) - 32);
}elsif(/\xef\xbc([\x81-\xbf])/){ # ！..／０..９：..＠Ａ..Ｚ
$ret = chr(ord($1) - 96);
}elsif(/^\xef\xbd([\xa7-\xab])$/){ # ァィゥェォ
$ret = "\xe3\x82" . chr(ord($1) * 2 - 173);
}elsif(/^\xef\xbd([\xac-\xae])$/){ # ャュョ
$ret = "\xe3\x83" . chr(ord($1) * 2 - 181);
}elsif(/^\xef\xbd([\xb1-\xb5])$/){ # アイウエオ
$ret = "\xe3\x82" . chr(ord($1) * 2 - 192);
}elsif(/^\xef\xbd([\xb6-\xbf])$/){ # カキクケコサシスセソ
$ret = "\xe3\x82" . chr(ord($1) * 2 - 193);
}elsif(/^\xef\xbe([\x82-\x84])$/){ # ツテト
$ret = "\xe3\x83" . chr(ord($1) * 2 - 128);
}elsif(/^\xef\xbe([\x85-\x89])$/){ # ナニヌネノ
$ret = "\xe3\x83" . chr(ord($1) + 5);
}elsif(/^\xef\xbe([\x8a-\x8e])$/){ # ハヒフヘホ
$ret = "\xe3\x83" . chr(ord($1) * 3 - 271);
}elsif(/^\xef\xbe([\x8f-\x93])$/){ # マミムメモ
$ret = "\xe3\x83" . chr(ord($1) + 15);
}elsif(/^\xef\xbe([\x94-\x96])$/){ # ヤユヨ
$ret = "\xe3\x83" . chr(ord($1) * 2 - 132);
}elsif(/^\xef\xbe([\x97-\x9b])$/){ # ラリルレロ
$ret = "\xe3\x83" . chr(ord($1) + 15);
}elsif(/^\xef\xbd([\xb6-\xbf])\xef\xbe\x9e$/){ # ガギグゲゴザジズゼゾ
$ret = "\xe3\x82" . chr(ord($1) * 2 - 192);
}elsif(/^\xef\xbe([\x8a-\x8e])\xef\xbe\x9e$/){ # バビブベボ
$ret = "\xe3\x83" . chr(ord($1) * 3 - 270);
}elsif(/^\xef\xbe([\x8a-\x8e])\xef\xbe\x9f$/){ # パポプペポ
$ret = "\xe3\x83" . chr(ord($1) * 3 - 269);
}elsif(exists($utf8tbl{$_})){ # その他正規表現不可
$ret = $utf8tbl{$_};
}else{
$ret = $_;
}

return $ret;
}
sub utf8conv($){
$_[0] =~ s/$utf8ex/utf8chconv($&)/eg;
return $_[0];
}

# 使い方
$x = utf8conv($x);

自分で作った全角英数禁止、半角カナ禁止スクリプトです。
ただし、UTF-8です(お呼びでない?)。
UTF-8、改行コードLFでソースを記述してください。

お礼

やはりSJISでやるのはあきらめた方がいいのか・・・
そう思いかけた矢先、#4のftp さんの指摘で、ハッと
気が付きました。( まだ試してないのですが )
この教えていただいた変換方法はperl初心者である私の
ライブラリとし、この先ゆくゆく利用させていただき
ます。詳細な回答に心より感謝いたします。

回答No.2

sun_supinel

文字コード「及び」スクリプト自身がEUCでないとダメっぽいっす。

EUCにしちゃいましょうヽ(´ー`)ノ

嘘です。
基本的にはEUCで書くほうがいいんでしょうが、、、。
ヒアドキュメントを使った方法で回避できるみたいです。
URL載せておきますので試してみてください。

参考URL：

http://www.mikeneko.ne.jp/~lab/kcode/jcode.html#h2-10

お礼

昨晩試してみました・・・うーん、おかしい変換でき
ない。SJISでやるのはあきらめた方がいいのか・・・
そう思いかけた矢先、#4のftp さんの指摘で、ハッと。
ともあれありがとうございました。
回答に感謝いたします。

回答No.1

ceita

ちょっと数字になってしまう根本的な理由は、
わからないのですが、
参考URLに記号の全角から半角への変換が、
載っています。

組み合わせれば何とか成るのではないでしょうか？

参考URL：

http://www.itboost.co.jp/perl/perl_09.php

お礼

ありがとうございます。
実はご紹介いただいたページも参考にさせていただいたの
ですが・・・まずEUC に変換、それから大文字→小文字へ
と、あのとおり順番にやっているつもりなのですが、
大文字が、大文字のまま返ってくるのです。(つまり何も
変化なし)
他の cgi でjperlを使っているので使用できないはずは
ないのですが・・・不思議です。
というかやるせんません。
こうなったら、力技で

s/．/./g; s/／/\//g;
s/０/0/g; s/１/1/g;
s/２/2/g; s/３/3/g;
s/４/4/g; s/５/5/g;
s/６/6/g; s/７/7/g;
・
・
・
とかやるしかないのかも。
お手数かけてしまいすみません、似たような経験が
ある方がいないか、もう少し回答を待ってみます。