Интересные решения Perl. Вопросы и ответы

Как конвертировать строку из UTF-8 в Windows-1251?

Есть как минимум 4 варианта:

1. Написать собственную процедуру перекодировки.
В этом случае придется потратить время на изучение алгоритмов.

2. Можно использовать модуль Convert::Cyrillic, однако он испытывает зависимость от модуля Unicode::Map8, который легко установить под *nix, но с поиском модуля под ActiveState Perl 5.8 могут возникнуть проблемы.

3. Можно использовать модуль Text::Iconv, который доступен как для Perl 5.6, так и для Perl 5.8.

my $unicodeTextHere;
# какие-либо действия, устанавливающие в переменную
# ...
# $unicodeTextHere текст в кодировке UTF-8

use Text::Iconv;
my $converter = Text::Iconv->new('UTF-8', 'WINDOWS-1251');
my $winTextHere = $converter->convert($unicodeTextHere);

# $winTextHere содержит текст в кодировке Windows-1251

4. Если Вы используете Perl 5.8, то конвертирование можно прозвести с помощью Encode:

my $unicodeTextHere;
# какие-либо действия, устанавливающие в переменную
# ...
# $unicodeTextHere текст в кодировке UTF-8

use Encode;
Encode::from_to($unicodeTextHere, 'utf-8', 'windows-1251');

# теперь $unicodeTextHere содержит текст в кодировке Windows-1251

Опубликовано: 19 ноября 2005 года.

Комментарии посетителей сайта