[ruby-list:15549] Re: 半 to 全

青山です。

Mon, Jul 19, 1999 at 07:43:04PM +0900 において
Sinichiro Dezawa さん曰く:

> 半角片仮名を全角平仮名に替えるやつってありそうで
> みつからない、、、
> どなたか作ってませんか？

だいぶ前に MacJPerl で作ったものの移植＆改造版で、こんな感じでしょうか。


#!/usr/local/bin/ruby -Ks
                      # 入力もスクリプト本体も SJIS で

HanKana2ZenHira = {}
a = "\xA1"
"。「」、・をぁぃぅぇぉゃゅょっーあいうえおかきくけこさしすせそたちつてとなにぬねのはひふ".split(//).each{|c| HanKana2ZenHira[a] = c; a.succ! }
a = "\xE7"
"へほまみむめもやゆよらりるれろわん゛゜".split(//).each{|c| HanKana2ZenHira[a] = c; a.succ! }

def hankana2zenhira(string)
  str = string.dup
  str.gsub!(/./){|c|
    HanKana2ZenHira[c] or c
  }
  str.gsub!(/([かきくけこさしすせそたちつてとはひふへほ])゛/){|c|
    [c.unpack('n')[0] + 1].pack('n')
  }
  str.gsub!(/([はひふへほ])゜/){|c|
    [c.unpack('n')[0] + 2].pack('n')
  }
  str
end

while line = gets
  print hankana2zenhira(line)
end


今回は手抜きして SJIS 版のままですが、Ruby は正規表現に文字コード指定
のオプションがあるので、適切に作り込めば入力やスクリプト本体の文字コー
ドに左右されないようにも出来ます。(nif.rb はそのようにしてあります。)
これは JPerl ではちょっと困難なわざですね。

片仮名平仮名変換については、わたなべさんが指摘されているように、
jcode.rb の tr が実用にならないぐらい遅いので(わたなべさんの今回のパッ
チでだいぶ高速になりますが、それでもまだかなり遅いようです)、テーブル
を用意して置換していました。


Kana2Hira = { "ヴ"=>"う゛" }
a = "ぁ"
("ァ" .. "ン").each{|c| Kana2Hira[c] = a.dup; a.succ! }

def kana2hira(string)
  str = string.dup
  str.gsub!(/./){|c| Kana2Hira[c] or c }
  str
end

while line = gets
  print kana2hira(line)
end


ところで、"ァ" .. "ン" は SJIS ではうまく動作しません。文字コードが連
続していないからなのですが、次のようにわける必要があります。一括して扱
えるようになると便利だと思いますが、いかがでしょう。

"ァ" .. "セ"    "ゼ" .. "ホ"    "ボ" .. "ミ"    "ム" .. "ン"


-- 
青山 和光 Wakou Aoyama <[e-mail]>