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

Код

#!/usr/bin/perl print "Content-Type: text/html\n\n"; use CGI::Carp "fatalsToBrowser"; require LWP::UserAgent; $url = 'http://yandex.ru'; $ua = LWP::UserAgent->new; $ua->agent('Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)'); $document = $ua->get( $url, $field => $bytes ); if ($document->is_success) {   print $document->content;       }

Мне необходимо взять не всю страницу целиком, а к примеру 1-2 кб первые.
в доках вычитал, что с помощью :read_size_hint => $bytes вроде как-то можно добиться, но к сожалению у меня не получилось, все равно выдает всю страницу :\
Подскажите как реализовать?

PS Что-то форум глючит... переводы строки пропадают

Это сообщение отредактировал(а) Igоr - 4.1.2006, 18:25

Igоr

Код

use strict; use LWP::UserAgent; my $url = 'http://yandex.ru'; my $ua  = LWP::UserAgent->new; $ua->agent('Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)'); $ua->max_size(32); my $response = $ua->request(HTTP::Request->new(GET => $url)); print "Content-Type: text/html\n\n"; print ($response->is_success ? $response->content : 'NO!!!');

perldoc LWP::UserAgent



Это сообщение отредактировал(а) sharq - 4.1.2006, 18:57

Спасибо