みかか変換（古いの）

昔の遺産を utf8 な環境で生かしてみる．

$ decodemikaka.pl hogehoge | nkf --utf8

nkf にリダイレクトしておけば，おkかな？

#!/usr/bin/perl
# -*- coding: euc-jp-unix -*-
use encoding "euc-jp";
use open IN  => ":utf8";
use open OUT => ":utf8";

my %table = (
"ぬ" => "1", # 
"ふ" => "2", # 
"あ" => "3", # 
"う" => "4", # 
"え" => "5", # 
"お" => "6", # 
"や" => "7", # 
"ゆ" => "8", # 
"よ" => "9", # 
"わ" => "0", # 
"ほ" => "-", # 
#"へ" => "^", # 
#▲ー\▲バックスラッシュと ￥記号 の関係から "ー" と "ろ" は重複する
"た" => "q", # 
"て" => "w", # 
"い" => "e", # 
"す" => "r", # 
"か" => "t", # 
"ん" => "y", # 
"な" => "u", # 
"に" => "i", # 
"ら" => "o", # 
"せ" => "p", # 
#"゛" => "@", # 
#"゜" => "[", # 
"ち" => "a", # 
"と" => "s", # 
"し" => "d", # 
"は" => "f", # 
"き" => "g", # 
"く" => "h", # 
"ま" => "j", # 
"の" => "k", # 
"り" => "l", # 
#"れ" => ";", # 
#"け" => ":", # 
#"む" => "]", # 
"つ" => "z", # 
"さ" => "x", # 
"そ" => "c", # 
"ひ" => "v", # 
"こ" => "b", # 
"み" => "n", # 
"も" => "m", # 
#"ね" => ",", # 
#"る" => ".", # 
#"め" => "/", # 
#"ろ" => "\", # 
    );

while (<>) {
    s/([あ-ん])/exists $table{$1} ? $table{$1} : $1/geo;
    print;
}

### end of file