Транслит
Материал из Xgu.ru
Как выполнить транслитерацию потока в UNIX/Linux?
Использовать скрипт:
#!/usr/bin/perl use utf8; use Encode; %tr=qw/ а a б b в v г g д d е e ё yo ж zh з z и i й j к k л l м m н n о o п p р r с s т t у u ф f х h ц c ч ch ш sh щ shch ъ x ы y ь ' э eh ю yu я ya А A Б B В V Г G Д D Е E Ё YO Ж ZH З Z И I Й J К K Л L М M Н N О O П P Р R С S Т T У U Ф F Х H Ц C Ч CH Ш SH Щ SHCH Ъ X Ы Y Ь ' Э EH Ю YU Я YA /; sub translit($) { if ($tr{$_[0]}) { return $tr{$_[0]}; } else { return "$_[0]"; } } binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; while(<>){ $a= decode_utf8( $_ ); $a =~ s/(.)/translit($1)/ge; print $a; }