Redhat 7.2
Apache
mod_perl
Скрипт обработки данных из формы:
use CGI qw(:standard);
$_ = $file_query = upload('file');
s/\w://;
s/([^\/\\]+)$//;
$_ = $1;
s/\.\.+//g;
s/\s+//g;
$file_name = $_;
open(FILE,">/path/$file_name") || die("Error opening file $file_name for writing, error $!", 1);
    binmode FILE;
    while ($bytes_count = read($file_query,$buff,1024)) {
        $size += $bytes_count;
        print FILE $buff;
    }
close(FILE);

ПРОБЛЕМА: Файл создается, но ничего не содержит.
Может кто сталкивался? Окажите помощь, заранее спасибо!

• RE: Проблема загрузки файла на сервер через HTTP.,uldus, 16:03 , 01-Июн-02

>ПРОБЛЕМА: Файл создается, но ничего не содержит.
>Может кто сталкивался? Окажите помощь, заранее спасибо!

А при описании формы в HTML написал <form .... enctype="multipart/form-data"> ?