use LWP::UserAgent;

[09h]

вот такой небольшой скрипт

Код: [Выделить]

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new("GET" => "$url");
my $res = $ua->request($req);
if ($res->is_success) {
my $data = $res->as_string;
print $data;
}получаю код страницы с заголовком:
HTTP/1.1 200 OK
Cache-Control: no-store, no-cache, must-revalidate
Connection: close
Date: Fri, 05 May 2006 23:53:47 GMT
Pragma: no-cache
Server: Apache
Content-Type: text/html
Content-Type: text/html; charset=UTF-8
Expires: Mon, 20 Dec 1998 01:00:00 GMT
Expires: Tue, 20 Jun 1995 04:13:09 GMT
Last-Modified: Fri, 05 May 2006 23:53:47 GMT
Client-Date: Fri, 05 May 2006 23:53:48 GMT
Client-Peer: 64.12.164.247:443
Client-Response-Num: 1
Client-SSL-Cert-Issuer: /O=VeriSign Trust Network/OU=VeriSign, Inc./OU=VeriSign International Server CA - Class 3/OU=www.verisign.com/CPS Incorp.by Ref. LIABILITY LTD.(c)97 VeriSign
Client-SSL-Cert-Subject: /C=US/ST=Virginia/L=Dulles/O=America Online/OU=Core Services/OU=Terms of use at http://www.verisign.com/rpa (c)00/CN=www.icq.com
Client-SSL-Cipher: DHE-RSA-AES256-SHA
Client-SSL-Warning: Peer certificate not verified
Client-Transfer-Encoding: chunked
Link: <http://c.icq.com/css/site_v2a.css>; rel="STYLESHEET"; type="text/css"
Link: ; rel="STYLESHEET"; type="text/css"
P3P: CP="ONL UNI COM PHY NAV INT DEM CURo OUR"
Set-Cookie: geo=7; domain=.icq.com
Set-Cookie: icq_lang=def
Set-Cookie: geo=7; domain=.icq.com
Set-Cookie: icq_lang=def
Set-Cookie: icq_ln=E701F9E835168E68D4D6FF721175B492C57E1E3E9FF4421A1B361D9C86EDC952; domain=.icq.com
Title: Login Page - ICQ.com
X-Meta-Author: ICQ.com

после этого мне надо получить страницу по другому адресу но так чтоб тот срипт не догадался что не из браузера лезу к нему... я так подозриваю что Set-Cookie:... не с проста тут ))
как передать куки когда пытаюсь получить страницу? :insane:

[xames]

http://search.cpan.org/~petdance/WWW-Mechanize-1.18/lib/WWW/Mechanize.pm

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get( $url );
$mech->get( $url2 );
print $mech->{content};

[09h]

с https чтото неполучается, как на lwp::useragent сделать ?

[xames]

все же попробуй модуль, он на основе LWP сделан, и  существенно облегачет работу!!!

[09h]

))))) WWW::Mechanize вот где сила ))))) пасибо мегачел!

[xames]

Еще кстати глянь модули созданные на основе этого модуля, возможно понадобятся какие нибудь.