Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Загрузка сразу несколько файлов

Автор: AlexanderI 6.5.2006, 09:50

У кого-нибудь есть скрипт загрузки сразу нескольких файлов ?

Т.е. появляется окно, где выделяем сразу много файлов, нажимаем загрузить и они загружаются.

Буду рад всем пердложениям и высказываниям.

Автор: igorold 6.5.2006, 12:35

Не понимаю в чем проблема?
Определяешь несколько полей ввода:

Код


<FORM ACTION="/var/www/support.pl" METHOD="POST" enctype="multipart/form-data" NAME="Add">
Файл 1: <INPUT TYPE="file" name="ImportText1"> 
Файл 2: <INPUT TYPE="file" name="ImportText2">
.......................
Файл N: <INPUT TYPE="file" name="ImportTextN">

и в скрипте потом:

Код


my $ImportText1    = CGI::param("ImportText1");
my $ImportText2    = CGI::param("ImportText2");
...............
my $ImportTextN    = CGI::param("ImportTextN");
my $ContI=0;
if ($ImportText1 ne "") {
                $ContI++;
                $Filename = $ContI;
                my $Path = CalcDir($ContI);
                open (FILE, "> /attached$Path/$Filename") or die $!;
                binmode $ImportText1;
                binmode FILE;
                while (<$ImportText1>) {
                    print FILE;
                }
                close FILE;
}
if ($ImportText2 ne "") {
                $ContI++;
                $Filename = $ContI;
                my $Path = CalcDir($ContI);
                open (FILE, "> /attached$Path/$Filename") or die $!;
                binmode $ImportText2;
                binmode FILE;
                while (<$ImportText2>) {
                    print FILE;
                }
                close FILE;
}
................
if ($ImportTextN ne "") {
                $ContI++;
                $Filename = $ContI;
                my $Path = CalcDir($ContI);
                open (FILE, "> /attached$Path/$Filename") or die $!;
                binmode $ImportTextN;
                binmode FILE;
                while (<$ImportTextN>) {
                    print FILE;
                }
                close FILE;
}

я вырезал из своего скрипта в виде образца .... переделай под себя ....

Автор: AlexanderI 6.5.2006, 14:21

Нет ты не понял вопроса.
Нужно не добавлять каждый файл в отдельное поле, а сразу выделать кучу файлов (одним махом) и после нажатия одной кнопки загрузить их.

Автор: igorold 6.5.2006, 14:50

а-а-а-а понял ... ну надо, чтобы стандартная форма ввода файлов поддерживала такой "мультивыбор"
я про это не знаю ... может кто слышал ...