Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Темы - 09h

Страницы: 1 [2]
16
Perl / use LWP::UserAgent;
« : 06 Мая 2006, 04:08:03 »
вот такой небольшой скрипт
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:

17
Perl / Установка Crypt-SSLeay и OpenSSL
« : 04 Мая 2006, 00:51:43 »
как поставить этот Crypt-SSLeay ? замучался уже скачал Crypt-SSLeay-0.51.tar.tar запускаю perl makefile.pl говорит что ему чтото надо от openssl установил и эту хрень, всеравно при установке этот модуль выдает целый список .lib которых нету типа.
Что делать :confused:
вообще задача чтоб при попытки получить страницу по https через lwp::useragent не говорило мне Failed: 501 Protocol scheme \'https\' is not supported (Crypt::SSLeay not installed) может это можно реализовать какнибудь по другому?

Страницы: 1 [2]