VPF::закачка с помощью read - Форум программистов

kostofffan

Дата 26.7.2004, 01:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Можно ли с помощью функции read закачать файл (к примеру gif) из интернета?
Пробовал писать так:

Код

#!perl -w
$url = 'http://denstelen.hop.ru/mypict/korob.gif';
read($url, $a, 1024);
print $a;
<stdin>;

Выдает просто пустую строку....

Сенкс.

Secandr

Дата 26.7.2004, 08:16 (ссылка)

(нет голосов)

Загрузка ...

Связист

Профиль
Группа: Экс. модератор
Сообщений: 4043
Регистрация: 3.8.2003
Где: Russia, Volgograd

Репутация: нет
Всего: 39

насколько я знаю тут нужны сокеты или какие-то доп. модули.

--------------------

Мышки плакали, кололись, но продолжали жрать кактусы (с) cisco

achmed

Дата 26.7.2004, 08:49 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 12.4.2004

Репутация: нет
Всего: нет

да, именно сокеты, но надо немного знать спецификацию HTTP,
а можно воспользоваться модулем HTTP::Request.

korob2001

Дата 26.7.2004, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

Цитата

Можно ли с помощью функции read закачать файл (к примеру gif) из интернета?
Пробовал писать так:

Такой вариант заливает файлы на сервер, а не из инета на локальную машину:

Код


#-> Подпрограмма получает имя файла и имя каталога куда
#    нужно загрузить файл загружает его в указанную дерикторию
#    и возвращает true - если файл
#   успешно загружен и false если была ошибка
sub writeUploadFile {
  my $file = shift;
  my $dir  = shift;
  my $uri  = $file;
  my ( $size, $buff, $bytes );
       $size = $bytes = 0;
       $file =~ s/\s+$//;
       return(0) unless $file =~ /\.(?:gif|jpg)$/i;
       $file =~ s/\w://i;
       $file =~ s/([^\/\\]+)$//;
       $file = $1;
       $file =~ s/\.\.+//g;
       $file =~ s/^\s+//;
       $file =~ s/\s+//g;
       return(0) unless $file =~ /^(?:[A-Z,a-z,0-9]+\.(?:gif|jpg))$/i;
  local *SAVE;
   open (SAVE, ">$dir/$file") or die "Can\'t create file \"$dir/$file\": $!";
    binmode SAVE;
    while ($bytes = read($uri, $buff, 2096)) {
      $size += $bytes;
      print SAVE $buff;
    }
   close(SAVE) or die "Can\'t close file \"$dir/$file\": $!";
if ( -e "$dir/$file" ) {
   return($size); # В качестве истинного значения возвращаем размер файла в байтах
} else {
   return(0);
}
}

Для закачки файлов из инета юзай то, что тебе посоветовали выше.
Удачи

Это сообщение отредактировал(а) korob2001 - 26.7.2004, 14:54

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

kostofffan

Дата 26.7.2004, 23:02 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Всем спасибо. Я просто в одной теме наткнулся на функцию которую привел korob2001 и подумал, что так можно закачивать файлы на свою машину...
Короче, все понятно!

everyone

Дата 28.8.2004, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 218
Регистрация: 24.3.2004

Репутация: нет
Всего: 4

Можно использовать LIbwww-perl, по-моему он есть в Activestate, я с ним толком не работал, но на первый взгляд очень даже впечатляюще, а в документации написано, что сервер можно уместить в несколько десятков строк, как бы это не звучало, но модуль действительно очень сильно облегчает работу.

--------------------

Что написал, то написал (Пилат)

GoodBoy

Дата 30.8.2004, 10:20 (ссылка)

(нет голосов)

Загрузка ...

Главный джедай

Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: 4
Всего: 83

Почему никто не хочет пользоваться поиском... Вот здесь я уже писал как можно сделать подобное!!!

--------------------

Чем дальше в лес, тем толще партизаны...

Цитата(igorold @ 1.5.2016, 17:40

)

Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »