ヘボン式

ローマ字をヘボン式に変換する関数

#####ヘボン式表記へ
sub hebon{
$roma=~ s/si/shi/;
$roma=~ s/ti/chi/;
$roma=~ s/tu/tsu/;
$roma=~ s/hu/fu/;
$roma=~ s/zi/ji/;
$roma=~ s/di/ji/;
$roma=~ s/du/zu/;
$roma=~ s/sya/sha/;
$roma=~ s/syu/shu/;
$roma=~ s/syo/sho/;
$roma=~ s/zya/ja/;
$roma=~ s/zyu/ju/;
$roma=~ s/zyo/jo/;
$roma=~ s/tya/cha/;
$roma=~ s/tyu/chu/;
$roma=~ s/tyo/cho/;
}
正規表現で置換してるだけだったりして