|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Vanya Bersimenko 2:5020/1734.33 10 Jun 2001 10:11:42 To : Pavel Reich Subject : Re^2: перекодировать Cyrillic-DOS -> Cyrillic-win1251 -------------------------------------------------------------------------------- дай мне сил справиться с неей.. с личною почтой моей...... PR> Когда-то (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еделывать. PR> sub dostowin PR> #Dos866 to Win1251 recoding PR> { PR> my $pvdcoderdos=shift; PR> $pvdcoderdos=~ PR> tr/\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8A\x8B\x8C\x8D\x8E\x8F\x90\x91 PR> \x92 \x93\x94\x95\x96\x97\x98\x99\x9A\x9B\x9C\x9D\x9E\x9F\xA0\xA1\xA2\xA3\x PR> A4\xA5\xA 6\xA7\xA8\xA9\xAA\xAB\xAC\xAD\xAE\xAF\xE0\xE1\xE2\xE3\xE4\xE5\xE6 PR> \xE7\xE8\xE9\x EA\xEB\xEC\xED\xEE\xEF/\xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\ PR> xC9\xCA\xCB\xCC\xCD PR> \xCE\xCF\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF\xE PR> 0\xE 1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\ PR> xF3\xF4\x F5\xF6\xF7\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xFF/; return $pvdcoderdos; PR> } PR> Может в FAQ? А где он лежит? "Почему Вы не на работе? ... Так иди работай.. кто бы ты ни был." - mr. Burns --- Пеп-Си - Вовочка (pемикс) * Origin: No Pity. No Mercy. No Regret. (2:5020/1734.33) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/45733b230fb0.html, оценка из 5, голосов 10
|