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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> загрузка файлов на сервер, файл не загружается 
:(
    Опции темы
garmon4ik
  Дата 1.8.2007, 01:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Здравствуйте! Подскажите пожалуйста.
Вот такой код 
Код

#!/usr/bin/perl -w
use strict;
use warnings;
use CGI qw(:standard);
open (my $OUT,"> /cgi-bin/files/test.txt");
binmode ($OUT);
print  $OUT "be be be be";
close ($OUT);


почему то не создает файл на сервере! Мне не понятно почему, а ВАМ?

А вот такой код:
Код

#!/usr/bin/perl -w
use strict;
use warnings;
use Fcntl;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use File::Basename;
my $F_Name=param('filaname');
my $Directory="/cgi-bin/files";
fileparse_set_fstype("MSDOS");
my $File_Name=basename($F_Name);
$CGI::POST_MAX=1024*1024;
$File_Name=~ s! \s!\_!g;
my $data;
open STORAGE, "> $Directory/$File_Name" or die "Ошибка: $Directory/$File_Name: $! \n";
binmode (STORAGE);
while (read ($File_Name, $data, 1024))
    {
        print STORAGE $data;
};
close STORAGE;



говорит следующее "  No such file or directory "

Подскажите, чего я не понимаю, по моему все должно создаваться........... smile ..


Это сообщение отредактировал(а) garmon4ik - 1.8.2007, 01:16
PM MAIL   Вверх
Nab
Дата 1.8.2007, 07:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 8
Всего: 37
Цитата(garmon4ik @  1.8.2007,  01:15 Найти цитируемый пост)
почему то не создает файл на сервере! Мне не понятно почему, а ВАМ?

Это уникальный вопрос smile
И нам непонятно smile
А чтоб стало понятно, логи сервера лучше всего посмотреть.
Но я подозреваю у вашего вебсервера не хватает прав на запись...



--------------------
 Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community 
FREESCO in Ukraine 
PM MAIL   Вверх
Rigel
Дата 1.8.2007, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата(Nab @ 1.8.2007,  07:04)
Цитата(garmon4ik @  1.8.2007,  01:15 Найти цитируемый пост)
почему то не создает файл на сервере! Мне не понятно почему, а ВАМ?

Это уникальный вопрос smile
И нам непонятно smile
А чтоб стало понятно, логи сервера лучше всего посмотреть.
Но я подозреваю у вашего вебсервера не хватает прав на запись...

Значение $Directory пиши не от виртуального рута а от физического.
--------------------
С уважением. Rigel. http://www.smoliy.ru
PM MAIL WWW ICQ   Вверх
garmon4ik
Дата 1.8.2007, 11:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Подскажите пожалуйста, как можно посмотреть логи сервера и проверить, разрешена ли запись на сервер. И как её разришить, если она запрещена? У меня уже были подозрения насчет прав доступа....

Это сообщение отредактировал(а) garmon4ik - 1.8.2007, 11:53
PM MAIL   Вверх
Nab
Дата 1.8.2007, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 8
Всего: 37
Ну сначала я рекомендую поглядеть на совет Rigel, и разобраться с путями....

Хотя самый простой способ проверить, это попытаться создать файл без путей, просто:
Код

open FH, ">writetext.txt" or die "Cannot create file: $!";
close FH;

так как у вас 
use CGI::Carp qw(fatalsToBrowser);
то вы, по идее, должны увидать ошибку почему не смог создаться файл.

А за логами это к вашему хостеру... у него спросите где можно посмотреть...




--------------------
 Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community 
FREESCO in Ukraine 
PM MAIL   Вверх
garmon4ik
Дата 1.8.2007, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо, проблема была в путях, теперь след прос возник, создается файл, но пустой....


read ($F_Name, $data, 1024) or die " $! \n" 

пишет  Bad file descriptor 


$F_Name - путь на компьютере клиента..... ЗЫ может он не видит файлы на компьютере клиента???
как быть??

Это сообщение отредактировал(а) garmon4ik - 1.8.2007, 14:07
PM MAIL   Вверх
Rigel
Дата 1.8.2007, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата(garmon4ik @ 1.8.2007,  13:55)
Спасибо, проблема была в путях, теперь след прос возник, создается файл, но пустой....


read ($F_Name, $data, 1024) or die " $! \n" 

пишет  Bad file descriptor 


$F_Name - путь на компьютере клиента..... ЗЫ может он не видит файлы на компьютере клиента???
как быть??

Надо разбираться - если пришлешь материал.
Я бы посоветовал забраться на мой сайт (адрес в подписи), и в проектах найти там чат на перле - у него в комплекте есть рабочий аплоадер. Посмотри, как там сделано (он, правда, написан десять лет назад, но ничего).
--------------------
С уважением. Rigel. http://www.smoliy.ru
PM MAIL WWW ICQ   Вверх
garmon4ik
Дата 1.8.2007, 14:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо большое, все работает, просто невнимательность в ночное время дает о себе знать


Это сообщение отредактировал(а) garmon4ik - 1.8.2007, 14:57
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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