|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Konstantin Tokar 2:5020/400 04 Feb 2005 02:07:20 To : Dmitry Kuzmin Subject : Re: upload --------------------------------------------------------------------------------
Dmitry Kuzmin wrote:
> Evgeni Kubachev пишет:
>
>> Отправляю через форму имя файла, который необходимо закачать на
>> сервер в папку
>> upload. СGI-скрипт получает имя файла.
>> Как реализовать закачку этого файла в нужную папку на сервере?
>>
>
> Показалбы код как ты это делаешь... ;)
>
> Можно ревлизовать следующим образом:
>
> форма -
>
> <form action="/cgi-bin/upload.cgi" method="post"
> enctype="multipart/form-data" name="Uploader" id="ImageUploader">
> <input name="file" type="file" id="filefield">
> <input type="submit" name="Send" value="Отправить">
> </form>
>
> в upload.cgi -
>
> #Для простоты доступа к параметрам
> use CGI qw(param);
>
> #получаем параметр file
> my $file = param('file');
> # в скалярном контексте - это имя файла, но реално
> # это дескриптор переданного файла.
>
> # записываем переданный файл на диск
> open(NEW_FILE, ">upload/new_file.123") || die '...';
> print NEW_FILE while (<$file>);
>
> ...
>
> пожалуй так...
>
>
И тебе не мешает прочитать perldoc CGI на предмет upload()
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по:
Архивное /ru.cgi.perl/65770866320b.html, оценка из 5, голосов 10
|