VPF::И снова о закачке файлов на сервер

milleroff

Дата 5.11.2006, 14:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте все. Для закачки файлов на сервак на этот раз решил всё сделать по-своему, создал вот такую конструкцию:

Код


my $dir= './upload'; # директория, куда сохраняем
    my $fh= $FORM{'file_name'}; #handle файла
    my $name = $fh;
    $name =~s/^.*[\\\/]//; # отрезаем путь к файлу
    if ($fh ne "")
        {
        open (IN, $fh);
        open (OUT,">./$dir/$name");
        flock OUT, 2;
        binmode OUT;
        binmode IN;
        print  OUT  while (<IN>);
        close (OUT);
        close (IN);
        flock (OUT,8);
        chmod 0644, "./$dir/$name";

Так вот, на локальном сервере типа "Денвер" всё работает "на ура". Но на Агавовском хостинге файлы создаются пустыми (0 байт). Объясните - почему?

ежик

Дата 11.11.2006, 14:17 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 19.9.2005
Где: Южно-Сахалинск

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

а ты пробовал просто создать файлик
Например:

Код


open (my $OUT,">./test");
print  $OUT 'bla bla bla bla';
close ($OUT);

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

Прежде чем задать вопрос прочитай инфу!!!

milleroff

Дата 11.11.2006, 21:06 (ссылка)

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

Загрузка ...

Новичок

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

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

Нет, с этим-то проблем нет. Я к тому, что насколько это правильно (видимо - не очень), когда я из одного дескриптора делаю вывод прямо в другой? Просто я смотрю, народ применяет какие-то временные переменные, буферы... Как здесь:

Код


my $buff;
    open( F, "> $dir/$file_new" ) or die $!;
      binmode F;
      binmode $file;
      print F $buff while ( read( $file, $buff, 1024 ) );
    close( F );

Ничччего не понимаю!

ежик

Дата 14.11.2006, 05:11 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 19.9.2005
Где: Южно-Сахалинск

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

Честно говоря, я тут тоже не большой знаток этого вопроса,
но вот то, что ты написал последнее это будет вернее, а вот
но твой первый вариант просто копировал один файл в другой
Что ты выше написал это для приема от браузера файла!!!

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

Прежде чем задать вопрос прочитай инфу!!!

Phoinix

Дата 22.11.2006, 19:51 (ссылка)

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

Загрузка ...

Новичок

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

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

milleroff,

Все хорошо, вот только я не пойму строку:

my $fh= $FORM{'file_name'}; #handle файла

Ты уверен в своем комментарии?

Вообще handle для твоего "типа закаченого" файла будет IN
Сообразишь сам, почему на локальной машине это сработало?
И вообще, откуда ты взял $FORM{'file_name'} ???

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