+ + +
С нами с 22.08.05
Сообщения: 52
Рейтинг: 1
|
Добавлено: 24/11/05 в 10:51 |
Проблемка такая.
Нужно средствами Perl прочитать изображение на другом серваке и сохранить его у себя на сервере (по аналогии с http типа $req = HTTP::Request->new(GET => $url); ).
|
|
|
|
С нами с 17.05.05
Сообщения: 27
Рейтинг: 28
|
Добавлено: 24/11/05 в 15:17 |
Пожалуйста, без проблем.
Если установлен модуль LWP::Simple
Код: |
#!/usr/bin/perl -w
use LWP::Simple;
$URL = 'http://откда_качаем/first-468x60-4.gif';
$file = 'image2.gif'; # под каким именем и где сохраняем на сервере
if (is_success(getstore($URL, $file))) {
print "Изображение скопировано\n";
} else {
print "Произошла ошибка!\n";
};
|
|
|
|
|
+ + +
С нами с 22.08.05
Сообщения: 52
Рейтинг: 1
|
Добавлено: 24/11/05 в 16:42 |
Благодарю. Правда, я надеялся, что можно обойтись без специальных модулей. На моем сервере его, к сожалению, нет. Придется провайдера пинать.
Нет, извиняюсь... Все работает!!
|
|
|
|
В чем сила, БРАТ?
С нами с 22.03.05
Сообщения: 749
Рейтинг: 246
|
Добавлено: 25/11/05 в 06:43 |
о как раз форум в тему, сам сейчас делаю такой скрипт (пытаюсь  )
а как тоже самое только на ПХП ?
очень нуно
|
|
|
|
+ + +
С нами с 22.08.05
Сообщения: 52
Рейтинг: 1
|
Добавлено: 25/11/05 в 14:36 |
Еще такой вопрос. Если нужно установить timeout на случай, если сервер не открывается, как это сделать?
|
|
|
|
Текстовая реклама в форме ответа Заголовок и до четырех строчек текста Длина текста до 350 символов Купить рекламу в этом месте! |