Perlで全角文字=>半角文字に変換するには?

[上に] [前に] [次に]
ふに 1998/09/25(金) 13:35:14
全角文字(A-Zや0-9)を半角文字(A-Z,0-9)に変換させようとしています。
なにか簡単に変換できる方法はないものでしょうか?
このままでは、変換テーブルを作り込まないといけないのでは・・・
文字コードはEUCを使っています。

どうかご教授のほどをお願いします。

Tiot [E-Mail] 1998/09/25(金) 18:48:27
たしか、そういった用途のモジュールかライブラリが有ったと思いますが...
ちょっと、今思い出せません。わかったら書きます。

匿名希望 1998/09/25(金) 21:23:21
jcode.plがその機能を持っています。jcode.plの中の使用法を
見てくださいな。

Tiot 1998/09/25(金) 21:37:25
jcode.plの中にあったんですね。灯台下暗し。

ふに 1998/09/28(月) 14:54:24
匿名希望さん ありがとうございました。
おそらく z2h_xxxだと思うのですが、これをつかうと下記のようなエラーになってしまいます。

Modification of a read-only value attempted at jcode.pl line 573,
<INPUT> chunk 25.

私、Perl初心者なため回避できません。
よろしければ、再度ご教授お願いできますでしょうか。


Tiot 1998/09/28(月) 20:24:31
関数を呼び出す部分をどんな風に記述しました?
そのソースを教えてください。

Tiot 1998/09/28(月) 20:26:02
上の関数というのはサブルーチンのことです(&・・というところ)。失礼。

ふに 1998/09/29(火) 11:06:14
[[解決]]
Tiotさん、こんにちは。
z2h_xxx(...)ですが、&jcode::z2h_euc(*line)と記述しました。

ですが、z2h_xxxはかな変換だけみたいなので、今回の要件ではつかえなく
&jcode::tr(〜)でやってみようとおもってます。

いろいろとありがとうございました。

[上に] [前に] [次に]