|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Valery Kondakoff 2:5020/163 23 Jan 2002 00:23:48
To : Sergey V. Leschenko
Subject : Перекодировать содерж имое переменной 1251 -> 866?
--------------------------------------------------------------------------------
22 Jan 02 20:57, Sergey V. Leschenko wrote to Valery Kondakoff:
>> undef $/;
>> while(<IN>) {
SL> ^^^ зачем while? файл сразу весь прочитается
Я на это и расчитывал: читаю файл целиком, потом сплитом делю его на части и
сохраняю в разные файлы.
А как надо было поступить? (Сорри, я новичок - мне пока надо все объяснять
подробно!) :)))
>> tr/H/H/;
>> tr/р/p/;
>> @faq = split("- end of section\n", $_);
>> }
>> close(IN);
>> А можно ли автоматизировать и перекодировку? Если можно, то как?
SL> sub koi2dos {
SL> my($s) = @_;
SL> $s=~tr/\x80-\x8F\x90-\x92\x93-\xC8\xC9-\xD0\xD1-\xD1\xD2-\xD5\xD6-\x
... skip ...
SL> 83\x95\x88-\x8F\x9F\x90-\x93\x86\x82\x9C\x9B\x87\x98\x9D\x99\x97\x9A/;
SL> return $s; }
Это, если не ошибаюсь KOI -> DOS. А ЦШТ (1251) -> DOS (866)?
Спасибо!
Best regards,
Valery Kondakoff
--- GoldED+/W32 1.1.5-1201
* Origin: ----> После прочтения - съесть!.. <---- (2:5020/163)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Перекодировать содерж имое переменной 1251 -> 866? 