Программирование > Perl

Загрузка файла

(1/1)

Error202:
Сохраняю файл так:

open (OUT,">file.doc") || die \'bad\';
binmode(OUT);  
while(<$file1>) {  print OUT $_; };  
close(OUT);


Форма:

<form method="post" action="super.pl" style="margin:0" enctype="multipart/form-data">
<input type="file" name="file1" style="width:250px">
</form>


Зарегистрировал пару аккаунтов, добавляю, все нормально...

Но в последнее время народ стал жаловаться, что файлы создаются, но остаются пустыми...
Эта штука не у всех...
С чем такое может быть связано?

APL:
while( ) {  print OUT $_; };  

что в переменной $file1? должен быть указатель на уже открытый файл, ошибка потому что либо файл не был открыт, либо не смог его прочитать

Error202:
$file1 = param(\'file1\');

Получает внешний файл по указанной в 1-ом сообщении форме...

APL:
1. Что за функция param()???

2. $file1 должен содержать  ДЕСКРИПТОР ФАЙЛА

например так
--- Код: ---open (IN,"in") || die \'bad\';
$in = IN;
open (OUT,">out") || die \'bad\';
binmode(OUT);  
while( ) {  print OUT $_; };  
close(OUT);

--- Конец кода ---

Phoinix:
APL

...
use CGI qw/param/;
...
my $file = param(\'file\');
...

Если не знаешь что содержится в $file, то читаем доки: CGI

Error202

Вообще , проверь $CGI::POST_MAX
А так, нужно смотреть конкретные случаи ошибок, как минимум лог.

Навигация

[0] Главная страница сообщений