Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Размер файла (как узнать), Расположенный на другом сервере. 
:(
    Опции темы
AlexanderI
Дата 2.2.2006, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Подскажите как узнать размер файла, расположенный на другом сервере (например http://test.ru/2.zip).

--------------------
Магазин детских игрушек  | Авто ВАЗ
PM MAIL   Вверх
NikolayBY
Дата 2.2.2006, 23:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Я бы попробовал его начать закачивать либо средствами Винды, либо любой прогой закачки файлов. Почти всегда выдается размер. Но твоя ссылка не закачивается
PM MAIL   Вверх
AlexanderI
Дата 3.2.2006, 00:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Ну она не закачивается потомучто это я для примера привёл. Там както средствами HEAD узнать можно.
--------------------
Магазин детских игрушек  | Авто ВАЗ
PM MAIL   Вверх
korob2001
Дата 3.2.2006, 01:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Юзай модуль LWP или LWP::Simple, например так можно получить head:
Код

#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $url = "http://denstelen.hop.ru/brussel/brussel1.jpg";
my $head = head($url);

while (my($key,$val) = each %$head) {
     if ( ref( $val ) ) {
          print $key;
          while (my($k,$v) = each %$val) {
                 print "\t$k => $v\n";
          }
     } else {
          print "$key => $val\n";
     }
}

Тебя интересует content-length.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Usya
Дата 4.2.2006, 06:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



AlexanderI, только не всегда такое подойдет.
Некоторые файлы тебе все-таки придется закачивать.
Хотя через head самый простой и безболезненный способ. Особенно чувствуется при больших размерах файлов.
Поэкспериментируешь – увидишь.
P/s
Однако есть еще один нюанс, с которым я так в свое время и не разобрался до конца: размер файла можно, в частности, узнать, если указать в строке адреса браузера только путь к папке (разумеется, если доступ открыт), но “head” при этом может и не выдать ничего интересующего при запросе.
--------------------
Я не волшебник, я только учусь...
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.0423 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.