
25.12.2008, 16:13
|
|
Познающий
Регистрация: 27.12.2006
Сообщений: 37
Провел на форуме: 1253202
Репутация:
133
|
|
Под perl юзается модуль Crypt::SSLeay
Пример:
PHP код:
#!/usr/bin/perl
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'https://www.helsinki.fi/');
my $res = $ua->request($req);
if ($res->is_success) {
print "Content-Type: text/plain\n\n";
print $res->as_string;
}
else {
print "Failed: ", $res->status_line, "\n";
}
|
|
|