Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > LWP::UserAgent

Автор: Igоr 4.1.2006, 18:20

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

Код


#!/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 Что-то форум глючит... переводы строки пропадают smile

Автор: sharq 4.1.2006, 18:54

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

smile

Автор: Igоr 4.1.2006, 20:01

Спасибо