ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Vladimir Volkov                      2:5020/400     22 Dec 2002  06:51:00
 To : Alexander Ponomarenko
 Subject : Re: upload
 -------------------------------------------------------------------------------- 
 

 Доброе время суток, Alexander.
 
 You wrote to All on Fri, 20 Dec 2002 01:22:46 +0300:
 
 AP> Hello everybody.
 
 AP> Как сделать закачку файла с компа пользователя?
 
 <form action="/cgi/test.pl" method="POST" enctype="multipart/form-data">
 <input type="file" name="File">
 <input type="submit"  value="Отправить">
 </form>
 
 После чего
 
 read(STDIN,$file,$ENV{CONTENT_LENGTH});
 if ($^O =~ m/Win/) { $br = "\x0A" } else { $br = "\x0D\x0A" };
 $file =~ m/(\S+).*Content-Type: \S+$br$br(.*)\1/s;
 
 В результать в переменную $file получаешь файл, отправленный
 пользователем и делаешь с ним, что хочешь.
 
 --
 Vladimir Volkov, at your service.  E-mail: vlad_volkov@vv.sovsem.net
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    upload   Alexander Ponomarenko   20 Dec 2002 02:22:46   Re: upload   Vladimir Volkov   22 Dec 2002 06:51:00   upload   Alexander Ponomarenko   23 Dec 2002 03:41:13