ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Igor Chumak                          2:5020/400     20 Nov 2003  11:38:50
 To : Igor S.Kozhukhov
 Subject : Re: convert
 -------------------------------------------------------------------------------- 
 

 Hello, Igor!
 You wrote to Igor Chumak on Thu, 20 Nov 2003 01:51:42 +0300:
 
  IS> *** Answering a msg posted in area MY (My mail).
 
  IS>                             Hello Igor!
 
  IS> Wednesday November 19 2003 18:02, Igor Chumak wrote to Igor
  IS> S.Kozhukhov:
 
  IS>>>    как определить кодировку - если английские буквы - то
  IS>>> кодировать не нужно - если русски - использовать iconv - а он
  IS>>> что-то ругнулся на попытку кодирования из KOI8-R в WINDOWS-1251 из
  IS>>> англицких буквов - нужно как-нить без использования перла опрелить
  IS>>> - не английскими буквами ли писан текст ?
 
  IC>> А если русские и латинские вперемешку? ;-))
 
  IS>    вот такие письма меня не интересуют :) - как правило - енто спам
  IS> ...
 
  IS>    я вот туть скриптик пишу для отправки сообщений с почты на смс -
  IS> от кого пришло и какой сабж - а спам достает - была бы ешо и
  IS> фильтрация - если удастся выкусить русские слова и англицкие - вот
  IS> только как быть - русское слова нужно декодить mimencode - а
  IS> англицкие пропускать как есть - может кто даст совет -
  IS> как такое решить ?
 
 Дедодировать из mime и транслитерировать в латиницу.
 
 -------------- скрипт для транслитерации.. автора не знаю --------
 #!/usr/bin/perl
 do {
 
  $zzz=<STDIN>;
 #"привет\n";
 #print $zzz;
  &k82tr($zzz);
  print $_;
 
 } until $zzz eq "";
 
 sub k82tr
     { ($_)=@_;
 #
 # Fonetic correct translit
 #
 s/Сх/S\'h/; s/сх/s\'h/; s/СХ/S\'H/;
 s/Ш/Sh/g; s/ш/sh/g;
 s/Сцх/Sc\'h/; s/сцх/sc\'h/; s/СЦХ/SC\'H/;
 s/Щ/Sch/g; s/щ/sch/g;
 s/Цх/C\'h/; s/цх/c\'h/; s/ЦХ/C\'H/;
 s/Ч/Ch/g; s/ч/ch/g;
 s/Йа/J\'a/; s/йа/j\'a/; s/ЙА/J\'A/;
 s/Я/Ja/g; s/я/ja/g;
 s/Йо/J\'o/; s/йо/j\'o/; s/ЙО/J\'O/;
 s/Ё/Jo/g; s/ё/jo/g;
 s/Йу/J\'u/; s/йу/j\'u/; s/ЙУ/J\'U/;
 s/Ю/Ju/g; s/ю/ju/g;
 s/Э/E\'/g; s/э/e\'/g;
 s/Е/E/g; s/е/e/g;
 s/Зх/Z\'h/g; s/зх/z\'h/g; s/ЗХ/Z\'H/g;
 s/Ж/Zh/g; s/ж/zh/g;
 tr/
 абвгдзийклмнопрстуфхцъыьАБВГДЗИЙКЛМHОПРСТУФХЦЪЫЬ/
 abvgdzijklmnoprstufhc\"y\'ABVGDZIJKLMNOPRSTUFHC\"Y\'/;
 return $_;
 }
 With best regards, Igor Chumak.  E-mail: igor()g-auto.pul.kiev.ua
 --- ifmail v.2.15dev5.1
  * Origin: Adamant ISP news server (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    convert   Igor S.Kozhukhov   20 Nov 2003 01:33:01   Re: convert   Igor Chumak   19 Nov 2003 19:00:52   Re: convert   Victor Wagner   19 Nov 2003 19:02:27   Re: convert   Igor Chumak   19 Nov 2003 19:02:58   Re: convert   Igor S.Kozhukhov   20 Nov 2003 02:51:42   Re: convert   Victor Wagner   19 Nov 2003 20:45:29   Re: convert   Igor S.Kozhukhov   20 Nov 2003 12:15:07   Re: convert   Michael Kazakov   20 Nov 2003 13:09:31   Re: convert   Andy Shevchenko   19 Nov 2003 23:35:18   Re: convert   Igor Chumak   20 Nov 2003 11:38:50   Re: convert   Kirill Frolov   21 Nov 2003 17:47:18