ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry S. Rzhavin                    2:5020/400     17 May 2000  11:12:51
 To : All
 Subject : Re: быстрая перекодировка текста
 -------------------------------------------------------------------------------- 
 

 Oleg Kravc wrote:
 
 > Скажем cp886 -> koi, таблица перекодировки хранится в хэше,
 > файл читается построчно, как сделать, что бы это работало быстро?
 > Я пока родил такое
 >
 >         while (defined($line = $input->getline())) {
 >                 $line =~ s/([\x80-\xFF])/$xtable{$1}/g;
 >                 $output->print($line);
 >         }
 >
 > можно ли как-то ускорить это дело? В масштабах всего файла?
 > Есть один неприятный момент - может понадобиться перекодировка
 > в нечто вроде unicode, те байт в два, или наоборот.
 >
 > --
 > O.K.                                 [Team Бассейн "Москва"] [CandH] [NOL]
 
 угу, создаешь массив и используешь номер буквы как индекс:
 
 $win_e = $koi2win[ord($koi_e)];
 --- ifmail v.2.15dev5
  * Origin: Rostelecom (2:5020/400)
 
 

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