Необходимо сделать скрипт типа tcp-клиента, который бы осуществлял соединение с сервером через https ssl. Насколько я понимаю, через простое создание сокета это не сработает. Говорят нужен какой-то модуль или dll-ка для работы через ssl соединение.
Подскажите как быть?
[Perl] Как создать соединение с сервером через https?06.10.03 09:55 Автор: choor Статус: Elderman
Я хожу через прокси с авторизацией. А куда можно впихнуть строку своего пароля типа "Proxy-Authorization: Basic cGF2ZWw6bG9ja3k=" ? сразу же после метода GET?
И еще вопрос, после соединения с сервером, каким образом получить от него ответ?
...
if ($res->is_success) {# Соединение установлено
print $res->as_string;
# Сделать цикл while?
while(<чего-то там>)
{
print;
}
}
...
---
[Perl] возникли вопросы...06.10.03 19:57 Автор: dl <Dmitry Leonov>
> Я хожу через прокси с авторизацией. А куда можно впихнуть > строку своего пароля типа "Proxy-Authorization: Basic > cGF2ZWw6bG9ja3k=" ? сразу же после метода GET?
perldoc HTTP::Headers
$h = HTTP::Headers->new;
$h->header('Proxy-Authorization: ' => '........');
или готовый метод proxy_authorization
$r = HTTP::Request->new(GET, "http://www.......", $h);
...
> И еще вопрос, после соединения с сервером, каким образом > получить от него ответ? >
> ...
> if ($res->is_success) {# Соединение установлено
> print $res->as_string;
> # Сделать цикл while?
> while(<чего-то там>)
> {
> print;
> }
> }
> ...
>
---
Все в $res лежит. perldoc HTTP::Response
[Perl] еще есть вопросы...12.10.03 16:34 Автор: Hux0r Статус: Незарегистрированный пользователь
#!/usr/bin/perl
$name="Pavel";
$password="locky";
use LWP::UserAgent;
my $UserAgent = LWP::UserAgent->new;
$UserAgent->proxy('http','http://192.168.0.2:3128');
$UserAgent->agent("MoZilla 9.0 (non-compatible; MSIE 9.3; PalmOS)");
use MIME::Base64;
$authorization = MIME::Base64::encode_base64("$name:$password");
my $Headers = HTTP::Headers->new;
$Headers = new HTTP::Headers(Referer => "www.test.com");
$Headers = new HTTP::Headers(Authorization => "BASIC $authorization");
my $Request = HTTP::Request->new(GET => 'https://securexxx.com/transact.asp', $Headers);
my $Request = $UserAgent->request($Request);
if ($Request->is_success) {
print $Request->as_string;
} else {
print "Failed: ", $Request->status_line, "\n";
}
---
Но упорно не хочет работать через HTTPS? пишет что:
Failed: 501 Protocol scheme 'https' is not supported
Как буд-то бы чего-то нехватает... Что делать?
возможно это поможет12.10.03 17:54 Автор: Eugene Статус: Незарегистрированный пользователь