Как скачать файл с другого сайта?
 

Как скачать файл с другого сайта? Очень хотелось бы видеть примерчик, плиз.

use IO::Socket;

$url = 'www.any.com/anypath/any.file';
($host, $file) = split('/',$url,2);
$file = '/'.$file;
$query = "GET $file HTTP/1.0\n".
"Host: $host\n".
"\n";
$remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>$host,PeerPort=>"http(80)");
unless ($remote) { return "invalid host"; }
$remote->autoflush(1);
binmode $remote;
print $remote $query;
$answer = join("",<$remote>);
close $remote;
if (index($answer,"\r\n\r\n")>0) {
substr($answer,0,index($answer,"\r\n\r\n")+4) = '';
} else {
substr($answer,0,index($answer,"\n\n")+2) = '';
}

$answer - тот самый any.file с сервера

УХ, SPV ну ты монстр, примного признателен!

А ещё можно так:

Уважаемый, Fouly, не могли бы вы подробнее о вашем методе?

Вы мне льстите, уважаемый:)
Метод не мой, его придумал Джисл Аас.

Используется модуль LWP (который поставляется с перлом) документация к которому, на русском языке, есть на сайте http://perldoc.narod.ru/

Прямая ссылка

thanx
нашел и на LWP пример...