TankOFFAngar

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


Архив за день: 15.12.2016

простая транслитерация 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’, ‘ьЬ’=>» , […]

Читать далее