![]() |
|
Модераторы: korob2001, ginnie |
![]()
|
|
| Гость_Yuri |
|
|||
|
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 |
|
|||
|
Unregistered |
ОХОТА ЗАКРЫТА!!!!
|
|||
|
||||
![]()
|
| Правила форума "Perl" | |
|
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |