Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не получается получить HTML код LWP::useragent 
:(
    Опции темы
kukich
Дата 15.12.2009, 17:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Здравствуйте,пытаюсь разобраться с LWP::UserAgent но не могу даже элементрано вывести HTML-код в STDOUT!
Вот такой код на официальном сайте - ничего на печать не выводит:
 
Код



require LWP::UserAgent;
 
 my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 $ua->env_proxy;
 
 my $response = $ua->get('http://search.cpan.org/');
 
 if ($response->is_success) {
     print $response->decoded_content;  # or whatever
 }
 else {
     die $response->status_line;
 }

Вот такой код выводит просто цифру 200:
Код
    
use LWP::Simple;
print get("http://www.yandex.ru");

Может кто объяснить в чем дело?
PM MAIL   Вверх
Egik2
Дата 15.12.2009, 17:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 302
Регистрация: 29.7.2008
Где: Агудзера

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



У меня оба примера все что нужно вывели  smile 
У тебя модули LWP::UserAgent и LWP::Simple установлены?


--------------------
Три великие добродетели программиста: лень, нетерпение и самомнение (Larry Wall)
a-nav.com
developer-blog.ru
world-poetry.org
PM MAIL WWW ICQ   Вверх
n4n0bit
Дата 15.12.2009, 17:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



А у вас internet включен?   smile 
PM MAIL WWW Jabber   Вверх
kukich
Дата 17.12.2009, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Странно ,у меня LWP useragent установлен и интернет есть, никаких ошибок не выдает просто на печать не выводит ,хрен знает почему ((
P.S. Пошагово проверял , в значении контент ниче нету ('content'= ' ').


Это сообщение отредактировал(а) kukich - 17.12.2009, 15:51
PM MAIL   Вверх
ming
Дата 11.1.2010, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 97
Регистрация: 30.1.2009
Где: Новосибирск

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



Очень странно. У меня ваш код работает. Правда, вместо $response->deсoded_content я использую $response->content...
PM MAIL ICQ Jabber   Вверх
dillinja
Дата 15.1.2010, 19:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



# $ua->env_proxy; # попробуй эту строчку затереть

Добавлено через 2 минуты и 24 секунды
$response->decoded_content; 

поменяй на 

$html = $response->as_string; 

напиши USE LWP; вместо require LWP::UserAgent;

 smile  авось чё прокатит)

Добавлено через 7 минут и 33 секунды
#!/usr/bin/perl

use LWP::Simple;
use LWP::ConnCache;
use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$ua->agent("MSI 7.0 (compatible; MSIE 5.0; Windows HT 1.0)");
$ua->timeout(10);
$ua->conn_cache(LWP::ConnCache->new());
$url = "http://google.ru";
$res = $ua->request(HTTP::Request->new(GET => $url ));
$html = $res->content;


print $html;


100% рабочий код, если не прокатывает ... переустанови LWP

ppm remove LWP
ppm install LWP
PM MAIL   Вверх
kukich
Дата 5.2.2010, 15:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Пришлось переустановить , и все заработало , простите за отнятое время.Хотел бы задать еще вопрос - работает ли LWP::UserAgent С русскоязычными сайтами - когда методом get достаешь код русского сайта - вместо кирилицы отображаются непонятные символы .Есть ли возможность эти символы как нибудь перекодировать или нет?
PM MAIL   Вверх
shamber
Дата 6.2.2010, 00:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

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



kukich, utf?
PM MAIL Jabber   Вверх
kukich
Дата 8.2.2010, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Я чайник , поэтому не особо понимаю где тут UTF менять надо?При запрашивании страницы вроде нигде не указывается кодировка.
PM MAIL   Вверх
shamber
Дата 8.2.2010, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

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



Цитата(kukich @  8.2.2010,  15:19 Найти цитируемый пост)
не указывается кодировка. 

то что она не указывается еще ничего не означает
PM MAIL Jabber   Вверх
kukich
Дата 15.2.2010, 15:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Тему можно закрыть!
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.0938 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.