レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。
調べ物したらカキコすれ
-
Perlで全角英数字を半角に変換したい
意外とめんどくさい
どこかのサイトで
jcode.plを使ってこうすればOKと書いてあったのでやってみた
&jcode::tr(\$data,'０-９ａ-ｚＡ-ｚ','0-9a-zA-Z');
確かに半角にはなるんだけど、全然違う字になってるじゃないか！
なんかsjisだとうまくいかないらしい…
んで試行錯誤した結果、
&jcode::tr(\$data,'０１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ','0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ');
こうしたらうまくいったんだけど、なんだか納得がいかない
ググり方が甘いのか、こんな頻繁に使いそうなことがすぐに検索できないなんて…
掲示板管理者へ連絡
無料レンタル掲示板
