VPF::LWP::UserAgent и utf8 - Форум программистов

fleyta

Дата 10.7.2009, 16:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 6.8.2008

Репутация: нет
Всего: нет

Доброго времени суток!
Сижу мучаюсь с элементарной проблемой - надо скачать содержимое веб-страницы и потом обработать полученный текст.
Проблемный код:

Код


use LWP::UserAgent;
my $path="http://www.yandex.ru/"; # для примера, надеюсь они не обидятся))
my $browser = LWP::UserAgent->new();
my $response = $browser->get($path,
    'User-Agent' => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.8) Gecko/2009032609 Firefox/3.0.8',
    'Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
    'Accept-Charset' => 'windows-1251,utf-8;q=0.7,*;q=0.7',
    'Accept-Language' => 'ru,en-us;q=0.7,en;q=0.3',
);
print $response->content;

В выдаче вместо русских букв получаю сплошные кракозябры... Если же сохранить выдачу в файл и открыть его в кодировке utf8, то все читается.
Подключение модулей utf8 и Encode что-то не помогает. Хэлп, что называется smile

mvsgt

Дата 10.7.2009, 20:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 27.3.2009

Репутация: 1
Всего: 1

Попробуйте сказать перлу, что stdout в utf-8
попробуйте запускать
perl -WC script.pl

и терминал-то в utf-8?

fleyta

Дата 10.7.2009, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 6.8.2008

Репутация: нет
Всего: нет

mvsgt, спасибо за отклик!
проблему только что решила - действительно стормозила насчет кодировки с виндовом терминале smile

воспользовалась Text::Iconv, перебросила utf8 в cp1251 и все прочиталось))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »