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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Охота на РАМБЛЕР!!! Приз 500 р. 
:(
    Опции темы
Гость_Yuri
Дата 17.2.2005, 13:16 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Задача следующая:
Наберите в браузере URI:
http://www.rambler.ru/cgi-bin/rambler_sear...tart=madison.ru
Получите результат. Теперь получите точно такое же содержимое страницы из скрипта, работающего на каком-либо сервере в интернете. Ссылки на работающие скрипты присылайте на [email protected]
Если вместо ожидаемой страницы вы получили "цены на дрова", то значит вы готовы к работе над задачей. Успехов!!!

Текст скрипта, от которого можно отталкиваться привожу ниже:

#!/usr/bin/perl
use LWP::UserAgent;
use LWP::Simple;
use HTTP::Headers;
use HTTP::Request::Common;
use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/html;\n\n";
$url='http://www.rambler.ru/cgi-bin/rambler_search?words=%EF%E0%F0%E8%EA%EC%E0%F5%E5%F0%F1%EA%E8%E5&start=madison.ru';
my $ua = new LWP::UserAgent;
$pg=$ua->request(GET $url,
USER_AGENT => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows 9',
CHARSET => 'windows-1251',
ACCEPT => '*/*',
ACCEPT_LANGUAGE => 'ru',
COOKIE => 'b=b; hotlog=1'
);
%h=%{$pg};
foreach $k (keys %h) {
$page=$page."\n<br>".$k.'='.$h{$k};
}
print "\n<br>+++++Answer headers<br>";
print join ('<br>',%{$h{'_headers'}});
print "\n<br>+++++Request<br>";
print join ('<br>',%{$h{'_request'}});
print '<br>+++++Answer<br><br>';
print $page;

Решение данной задачи нужно для написания смарт-агента. Верояно в протоколе HTTP есть что-то что я не знаю и знает RAMBLER. Буду благодрен за наводку на правильный путь.

За рабочий исходник (perl, php) плачу 500р. Скрипт должен работать на сервере в интернете - для проверки кидайте ссылки на работающий скрипт.
Обращайтесь по адресу: [email protected]
  Вверх
Гость_Yuri
Дата 21.2.2005, 09:44 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











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


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

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


 




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


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

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