TankOFFAngar

или не слова про танки


простая транслитерация perl

sub ts($)
{
my %hs=(‘аА’=>’a’ , ‘бБ’=>’b’ , ‘вВ’=>’v’ , ‘гГ’=>’g’, ‘дД’=>’d’ ,
‘еЕ’=>’e’ , ‘ёЁ’=>’jo’ , ‘жЖ’=>’zh’ , ‘зЗ’=>’z’, ‘иИ’=>’i’ ,
‘йЙ’=>’j’ , ‘кК’=>’k’ , ‘лЛ’=>’l’ , ‘мМ’=>’m’, ‘нН’=>’n’ ,
‘оО’=>’o’ , ‘пП’=>’p’ , ‘рР’=>’r’ , ‘сС’=>’s’, ‘тТ’=>’t’ ,
‘уУ’=>’u’ , ‘фФ’=>’f’ , ‘хХ’=>’kh’ , ‘цЦ’=>’c’, ‘чЧ’=>’ch’,
‘шШ’=>’sh’, ‘щЩ’=>’shh’, ‘ъЪ’=>» , ‘ыЫ’=>’y’, ‘ьЬ’=>» ,
‘эЭ’=>’eh’, ‘юЮ’=>’ju’ , ‘яЯ’=>’ja’);
my$z=shift;
pop@{([\map do{$z=~s|[$_]|$hs{$_}|gi;},keys %hs])},$z;$z
}

Оставить комментарий

Ваш адрес email не будет опубликован.