> はい、了解。こんな感じでいかがでしょう。 > > # zen2han.pl > # ============================================= > # 全角アルファベットを半角変換する (for Jperl) > # > # 使い方: jperl zen2han.pl < orgfile > newfile > # --------------------------------------------- > > while (<>) { > print ZenToHan($_); > } > > # tr/// が心臓部。必要に応じて修正のこと。 > # ここでは英数字と"-"を全半角変換する。 > sub ZenToHan { > my($S) = @_; > $S =~ tr/-0-9A-Za-z/-0-9A-Za-z/; > return $S; > } > できました。変換プログラムをご教示していただいたおかげで友 人が変換してくれました。ありがとうございました。 また、ワードでの置換方法を教わりましたことで、フリーウエアー であるQXエディタのインストールを思いつき、以前作った広辞苑.DIC を自力で修正することもできました。具体的にはほとんどの訳語部に、 「 / @」の記号が出ていたものを全て消すことができました。 今後とも宜しくお願い致します。ますますMyDICライフが充実しそ うです。
|