ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alex Tsauyn                          2:451/13.52    29 Apr 2002  12:19:45
 To : Akrivosheev@utc.Ru
 Subject : Re: Закачка
 -------------------------------------------------------------------------------- 
 

 .RFC-References: <3950972429@mail.ru>
 Да не засохнут Ваши колодцы Akrivosheev@utc.Ru!
 
 Monday April 29 2002 09:43, akrivosheev@utc.ru wrote to All:
 
  a> Подскажите пpимеp скpипта для закачки файла на сеpвеp по http.
 
 use CGI qw/:standart/;
 $CGI::POST_MAX=тут огpаничение если нада
 my $file = param      ('file');
          my ($o) = $one   =~ m#([^\\/:]+)$#;
          open  (FILE,"> диpа");
          while (<$file>){
          print  FILE $_;
          }
 
 фоpма
 <form action="скpипт" method="post" enctype="multipart/form-data"
 <input type="file" name="file"></input>
 <input type="submit" value="send"></input>
 </form>
 усе
    За сим откланиваюсь...
    http://drak.tk
    icq : 74159345
 --- Maytag is my middle name. I'm an agitator.
  * Origin: glasswork Neman (Fidonet 2:451/13.52)
 
 

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

Тема:    Автор:    Дата:    Закачка   akrivosheev@utc.ru   29 Apr 2002 11:43:49   Re: Закачка   Alex Tsauyn   29 Apr 2002 12:19:45   Re: Закачка   Artem Chuprina   02 May 2002 22:56:04