Perl(バージョン5.8.x)で

スクリプトは shiftjisで書いています。
全角の文字を半角にする方法はどのようになりますか?
サンプルコードなどもあるとうれしいです。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/12/08 19:31:01
  • 終了:--

回答(1件)

id:andi No.1

andi回答回数448ベストアンサー獲得回数02005/12/08 19:58:29

ポイント40pt

Jcodeを利用してみて下さい。


use Jcode;


# 全角英数字などはtrメソッド

print jcode(”あいうABCえお”)->tr(jcode(’ABCDEF’)->euc,’ABCDEF’)->sjis;


# カナの全角⇒半角変換はz2hメソッドでいけるようです。

print jcode(”アイウ”)->z2h->sjis;

id:know94space

ありがとうございます。

2005/12/12 09:08:34

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません