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

Вот пример без использования CGI.pm

Код

#-> Подпрограмма получает имя файла и имя каталога куда #    нужно загрузить файл загружает его в указанную дерикторию #    и возвращает true - если файл #   успешно загружен и false если была ошибка sub writeUploadFile {   my $file = shift;   my $dir  = shift;   my $uri  = $file;   my ( $size, $buff, $bytes );        $size = $bytes = 0;        $file =~ s/\s+$//;        return(0) unless $file =~ /\.(?:gif|jpg)$/i;        $file =~ s/\w://i;        $file =~ s/([^\/\\]+)$//;        $file = $1;        $file =~ s/\.\.+//g;        $file =~ s/^\s+//;        $file =~ s/\s+//g;        return(0) unless $file =~ /^(?:[A-Z,a-z,0-9]+\.(?:gif|jpg))$/i;   local *SAVE;    open (SAVE, ">$dir/$file") or die "Can\'t create file \"$dir/$file\": $!";     binmode SAVE;     while ($bytes = read($uri, $buff, 2096)) {       $size += $bytes;       print SAVE $buff;     }    close(SAVE) or die "Can\'t close file \"$dir/$file\": $!"; if ( -e "$dir/$file" ) {    return(1); } else {    return(0); } }

Правда она загружает только файлы с расширением .gif, .jpg, но принип думаю понятен. Кстати не сложно сделать что бы, подпрограмма в качестве истинного значения передавала размер загруженного файла. Думаю размер, полезная информация при загрузке файла на сервер.

Удачи

спасибо за подпрограмму

толбко я чето непонял для чего нужна переменная
url?
file?
dir?
Добавлено @ 18:36
аа вижу $url=$file

ок все понятно
спасибо!!!

Это сообщение отредактировал(а) lazarevmax_mcx - 27.6.2004, 18:34

Переменные $file и $dir получают параметры ( собственно это написано в начале кода, в коментариях ). Переменная $uri нам необходима как копия переменной $file, так как переменная $file будет приобразована до имени файла (путь к файлу вырезается). При чтении файла с помощью read($uri, $buff, 2096) нам необходимо в первом параметре передать не только имя файла, но и путь к нему. Потому нам нужна копия переменной $file.
Переменная $file преобразуется до имени фала для того, что бы на сервере файл был с тем же именем, что и на машине юзера.

Удачи.

Модель Net::FTP. Все примеры есть в man'e.