|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Vadim Tzirulnicov 2:5020/400 11 May 2007 12:03:11 To : All Subject : Проблемы с перекодировкой --------------------------------------------------------------------------------
use cyrillic qw{koi2utf};
print koi2utf('Тра-ля-ля');
- пишет Can't create Unicode::Map for 'koi8-r' charset!
Ладно, извращаемся:
use cyrillic qw{koi2win win2utf};
print koi2win(win2utf('Это просто проверка'))."\n";
- даёт "Ъ-ОnОі О=ОfОіО-ОnОі О=ОfОіО+О.ОfО?О-"
Преобразуем обратно:
use cyrillic qw{utf2win win2koi};
print utf2win(win2koi('Ъ-ОnОі О=ОfОіО-ОnОі О=ОfОіО+О.ОfО?О-'))."\n";
- пишет "-nо =fосnо =fоіеfк-". Почему ? Ведь по логике вещей должно написать
"Это просто проверка"
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/6577ea78b7cb.html, оценка из 5, голосов 10
|