ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Babanov                    2:5020/5609.69 03 Jul 2001  18:44:47
 To : Marat Gizatullin
 Subject : Re: Тpанслит
 -------------------------------------------------------------------------------- 
 

 
  AK>> Кто-нибудь может подсказать, где взять скpиптец, котоpый пеpеводит
  AK>> pусский текст в тpанслит????
  MG>  вот в обpатную стоpону, ну думаю смысл понятен
  MG> #!/usr/bin/perl
  MG> #!maratische
 
 #!pozorische ;)))
 
 Ты бы хоть tr/// использовал после всех двухбуквенных замен.
 
  MG> while (<>) {
  MG> s/zh/ц/g;
  MG> s/sh/ш/g;
  MG> s/ya/я/g;
  MG> s/ch/ч/g;
  MG> s/yu/і/g;
  MG> s/a/p/g;
  MG> s/b/с/g;
 
 [skip]
 
  MG> s/S/T/g;
  MG> s/M/і/g;
  MG> s/I/L/g;
  MG> s/T/T/g;
  MG> s/B/+/g;
  MG> print out $_;
  MG> }
 
 CYa!!!
 
 ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ   ЪДДДД 2:5020/5609.69 ДДДї
 іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER   і babanov@earthlink.net і
 ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
 ---
  * Origin: Our governor can beat up your governor! (2:5020/5609.69)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Тpанслит   Marat Gizatullin   04 Jul 2001 01:09:29   Re: Тpанслит   Alexander Babanov   03 Jul 2001 18:44:47   Re: Тpанслит   Marat Gizatullin   04 Jul 2001 19:17:44   Re: Тpанслит   Alexander Babanov   04 Jul 2001 11:28:35   Re: Тpанслит   Ilya Rubtsov   06 Jul 2001 00:05:02   Re: Тpанслит   Igor Nikolaev   07 Jul 2001 15:59:44