ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Pavel Reich                          2:5004/75      10 Jun 2001  03:29:02
 To : Vanya Bersimenko
 Subject : Re: перекодировать Cyrillic-DOS -> Cyrillic-win1251
 -------------------------------------------------------------------------------- 
 

 
  Когда-то (Friday June 08 2001 19:24) Vanya Bersimenko писал All:
 
  VB> Как пееpкодиpовывать Cyr DOS -> CyrWin 1251?
 
  VB> Использовать win32 api - конечно выход,
  VB> но мне нyжен мастдайно-независимый скpипт ;)
  VB> То есть, чтобы после поклажи его на юнихи мне не
  VB> пpишлось его полностью пеpеделывать.
 
 sub dostowin
 #Dos866 to Win1251 recoding
 {
     my $pvdcoderdos=shift;
     $pvdcoderdos=~
 tr/\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8A\x8B\x8C\x8D\x8E\x8F\x90\x91\x92
 \x93\x94\x95\x96\x97\x98\x99\x9A\x9B\x9C\x9D\x9E\x9F\xA0\xA1\xA2\xA3\xA4\xA5\xA
 6\xA7\xA8\xA9\xAA\xAB\xAC\xAD\xAE\xAF\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\x
 EA\xEB\xEC\xED\xEE\xEF/\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\xE
 1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\x
 F5\xF6\xF7\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xFF/;
 return $pvdcoderdos;
 }
 Может в FAQ?
          Pavel
 --- GoldED+/386 under The Doors at 25Reich_homeplace
  * Origin: Хорошо живется поинтам... (2:5004/75)
 
 

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

Тема:    Автор:    Дата:    перекодировать Cyrillic-DOS -> Cyrillic-win1251   Vanya Bersimenko   08 Jun 2001 19:24:12   Re: перекодировать Cyrillic-DOS -> Cyrillic-win1251   Pavel Reich   10 Jun 2001 03:29:02   Re^2: перекодировать Cyrillic-DOS -> Cyrillic-win1251   Vanya Bersimenko   10 Jun 2001 10:11:42   пеpекодиpовать Cyrillic-DOS -> Cyrillic-win1251   Slava Korchagin   10 Jun 2001 18:03:41   Re: пеpекодиpовать Cyrillic-DOS -> Cyrillic-win1251   Artem Chuprina   13 Jun 2001 11:12:09