Perl кроссайт?

[LSD]

Возможно ли с помощью перл скрипта скопировать файл с чужого хоста на свой?

 

[????]

Для: LSD
Ключевое слово LWP (Library for the WWW in Perl).

#!/usr/bin/perl 

use strict;
use warnings;
use LWP::UserAgent;

my $url = "http://ya.ru";
my $agent = new LWP::UserAgent();
my $request = new HTTP::Request('GET' => $url);

my $response = $agent->request($request);

if ($response->is_success())
{
print($response->content());
}
else
{
print("Error: " . $response->status_line());
}

 

[LSD]

Спасибо, вроде работает

 

[desp]

А как быть, если на все стандартные примеры выдает такой ответ:

===================================
error: 500 Can't connect to www.ya.ru:80 (Timeout) at /usr/home/...
===================================

При этом в firewall сделаны следующие настройки
========================================
ipfw add allow log tcp from any to any 80 out
ipfw add allow log tcp from any 80 to any in
========================================

 

[desp]

Нда, вижу, что тут много настоящих специалистов...

 

[????]

Для: desp
тут точно нет телепатов