[id:eiel:20090110]のつづき。 テキスト形式にしてしまえばこっちのものです。 とはいえ、sdicについてくるeijirou.perlで変換すればいいというわけにもいかないです。*1というわけで、rubyでかいてみた。gene.perlを参考にした。 #!/usr/bin/ruby -Ku def make_key(key) head = key.clone key.tr!('A-Z', 'a-z') key.sub!(/\s+/, ' ') # key.sub!(/ \+\d+/, '') # これなんの処理だろ? ret = "" if head != key ret = "<H>#{head}</H>" end ret + "<K>#{key}</K>" end $stdin.each do |line| line.gsub!('&', '&') line.gs