Сообщения

1

Perl / Http запрос.

« : 14 Октября 2003, 12:34:27 »

RomikChef  Yandex был  взят как пример !!!
И никто не хотел присваивать себе работу яндексу.
Если там стоит защита от этого я очень рад.

Кто - нибудь может сказать посуществу.

2

Perl / Http запрос.

« : 14 Октября 2003, 11:48:15 »

RomikChef
А в чем собственно халява?
Yandex взят как пример.
Может кто-нибудь подскажет из-за чего ошибка.
или ссылку на документацию.

3

Perl / Http запрос.

« : 14 Октября 2003, 10:30:52 »

Хочу чтоб скрипт посылал запрос к yandex и выдавал результат поиска yandex.
Пишет ошибку
malformed header from script. Bad header=На этот раз Вас постигла неуда: /home/cgi-bin/ya.cgi
Подскажите в чем загвостка.
(Я так понимаю они отдают gzipленный контент ?)
________________________________________________
#!/usr/local/bin/perl -w
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
my $req =
new HTTP::Request POST => \'http://www.yandex.ru/yandsearch\';
$req->content_type(\'application/x-www-form-urlencoded\');
$req->content(\'?rpt=rad&text=1\');
my $res = $ua->request($req);
if ($res->is_success)
 {
  print $res->content;
 } else { print "На этот раз Вас постигла неудача\\n"; }                    
________________________________________________