ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Mr.Young                             2:5020/400     17 Feb 2001  03:43:20
 To : All
 Subject : Re: koi2win
 -------------------------------------------------------------------------------- 
 

 "Andrew Maltsev" <Andrew.Maltsev@f124.n5015.z2.fidonet.org> wrote in message
 news:982353449@f124.n5015.z2.ftn...
 
 >
 > Дайте плиз функцию которая перекодирует из кои в вин.
 
 sub koitowin {
     my $decodestring=shift;
     $decodestring=~
 tr/\xE1\xE2\xF7\xE7\xE4\xE5\xF6\xFA\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF2\xF3\
 xF4\xF5\xE6\xE8\xE3\xFE\xFB\xFD\xFF\xF9\xF8\xFC\xE0\xF1\xC1\xC2\xD7\xC7\xC4\
 xC5\xD6\xDA\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD2\xD3\xD4\xD5\xC6\xC8\xC3\xDE\
 xDB\xDD\xDF\xD9\xD8\xDC\xC0\xD1/\xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA
 \xCB\xCC\xCD\xCE\xCF\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xDB\xDC\xDD
 \xDE\xDF\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0
 \xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xFF/;
 return $decodestring;
 }
 _________________________________
 С вами был Mr.Young
 webmaster@vbstep.ru
 
 Visual Basic - Step by Step
 http://www.vbstep.ru
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    koi2win   Andrew Maltsev   16 Feb 2001 20:57:08   Re: koi2win   Mr.Young   17 Feb 2001 03:43:20