[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
![英辞郎第四版買ってみた。emacsで使いたい。 sdic編 - えいるっき。](https://cdn-ak-scissors.b.st-hatena.com/image/square/3e103f22966b48f4e715bcbf57ecada053a0def1/height=288;version=1;width=512/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fe%2Feiel%2F20090112%2F20090112002730.png)