Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > вызов файла с другого сервака

Автор: WebMaster 25.9.2003, 21:20

Здравствуйте!
Как осуществить на перле следующее:

нужно , что бы скрипт при обращении к нему копировал файл из www.host.com/this.txt в свою директорию c именем файла /var/www/html/www.myserver.ru/cgi-bin/script/new.txt

Кто пожет помочь?

Автор: HalkaR 25.9.2003, 22:19

В принципе можно воспользоваться LWP.

Код

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => "www.host.com/this.txt");
$res = $ua->request($req);
if ($res->is_success) {
          $resp = $res->content;
           open (A,'>script/new.txt');
           print A $resp;
            close A;}

Автор: WebMaster 26.9.2003, 11:31

HalkaR спс....
А сокетами как это будет выглядеть?

Автор: HalkaR 26.9.2003, 17:46

Я сокетам как-то не пользовался, не было необходимости, сорри, но тут где-то недавно обсуждалась сия тема. Поищи.