ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexander Ponomarenko                2:5030/1067.10 04 Jan 2003  01:29:06
 To : All
 Subject : Upload
 -------------------------------------------------------------------------------- 
 

 Hарод! Делаю так аплоад. И есть проблема: как из всего этого выделить
 сам файл и имя файла. Если делать так, то в юниховской кодировке файлы приходят
 нормально, а в виндовой неправильно. Как сделать правильно?
 
 #!/usr/bin/perl -w
 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;
 @mas=split "\n",$file;
 print"Content-type: text/html\n\n";
 print $file;
 open(QWE,">uploads/qq");
 
 for($i=4;$i<=$#mas-2;$i++) {
 print QWE "$mas[$i]\n";
 }
 close(QWE);
 
 Alexander
 
 --- GoldED+/386 1.1.4.7
  * Origin:  (2:5030/1067.10)
 
 

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

Тема:    Автор:    Дата:    Upload   Alexander Ponomarenko   04 Jan 2003 01:29:06   Re: Upload   Artem Chuprina   04 Jan 2003 15:23:43   Hа: Upload   Alexander V. Gaiduk   04 Jan 2003 17:11:36