VPF::вопрос про LWP - Форум программистов

zorch

Дата 21.3.2006, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.3.2006

Репутация: нет
Всего: нет

Есть программа

Код


!/usr/bin/perl
use LWP::UserAgent;
print "Content-type: text/html\n\n";
$ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST => 'http://www.perl.com/cgi-bin/BugGlimpse');
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
my $res = $ua->request($req);
print $res->as_string;

Работает замечательно,но вместе со страницей верху выдает заголовок о сервере, времени, коде возврата
( в данном примере это выглядит так:
HTTP/1.1 404 Not Found Connection: close Date: Tue, 21 Mar 2006 11:00:50 GMT Server: Apache/1.3.34 (Unix) PHP/4.3.11 mod_perl/1.29 Content-Type: text/html; charset=ISO-8859-1 Client-Date: Tue, 21 Mar 2006 11:00:51 GMT Client-Peer: 208.201.239.36:80 Client-Response-Num: 1 Client-Transfer-Encoding: chunked Link: ; /="/"; rel="alternate"; title="Perl Articles and Weblogs"; type="application/atom+xml" Link: ; /="/"; rel="alternate"; title="Perl Articles and Weblogs"; type="application/rdf+xml" Link: ; /="/"; rel="alternate"; title="Perl Articles and Weblogs"; type="application/rss+xml" Link: ; /="/"; rel="stylesheet"; type="text/css" P3P: policyref="http://www.oreillynet.com/w3c/p3p.xml",CP="CAO DSP COR CURa ADMa DEVa TAIa PSAa PSDa IVAa IVDa CONo OUR DELa PUBi OTRa IND PHY ONL UNI PUR COM NAV INT DEM CNT STA PRE" Title: X-Cache: MISS from www.perl.com)
Как от этого заголовка можно избавится?

Kannabismus

Дата 21.3.2006, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Тим Тоуди

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 20.11.2005

Репутация: нет
Всего: 2

Код


print $res->content;

BlackLFL

Дата 21.3.2006, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

Репутация: 3
Всего: 12

Код


#!/usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser); # For debuging
use LWP;

my $ua = LWP::UserAgent->new();
$ua->timeout(5);
$ua->agent("Mozilla/5.0");

my $url="http://www.ya.ru";
my $document = $ua->request( HTTP::Request->new( GET => $url ) );

print "Content-type: $document->content_type\n\n";

if ( $document->is_success ) {
    print $document->content;
} 
else {
    print $document->code();
}
1;

nitr

Дата 21.3.2006, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84

В общем perldoc LWP smile

строку 12 можно заменить
my $document = $ua->get( $url );

--------------------

I love ArchLinux

DiverD

Дата 21.3.2006, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 225
Регистрация: 14.9.2005
Где: Белорусь

Репутация: нет
Всего: 2

zorch зайди еще суда здесь русский перевод есть!
http://poizon.net.ru

--------------------

[ FreeBSD & pERL p0WER eVERY dAY ]

BlackLFL

Дата 21.3.2006, 17:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

Репутация: 3
Всего: 12

nitr, зачем менять? в моем варианте нет ошибки ...

zorch

Дата 26.3.2006, 20:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.3.2006

Репутация: нет
Всего: нет

Всем спасибо!

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