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

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

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:
  • 終了:--
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

回答1件)

id:andi No.1

回答回数448ベストアンサー獲得回数0

ポイント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

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

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

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

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

回答リクエストを送信したユーザーはいません