ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexander Ilyankin                   2:5059/9.81    04 Apr 2003  11:06:00
 To : All
 Subject : Скрипт закачки файла
 -------------------------------------------------------------------------------- 
 

 Вот в инете отыскал скрипт закачки. Hо там было написано, что этот скрипт для
 закачки картинок. А можно ли использовать этот скрипт для закачки всех типов
 файлов ? например zip, rar, exe, mp3, wav и т.д. Дома вроде всё закачивает, а
 как дело будет обстоять в интернете ?
 --сам скрипт--
 use CGI qw/:standard/;
 insert_image() if (param());
 sub insert_image {
   my $downpath = "tmp/";
   my $in=param('picture');
   my ($name) = $in =~ m#([^\\/:]+)$#;
   open(OUT,">$downpath$name");
   binmode(OUT);
   while (<$in>) {
     print OUT $_;
   }
   close(OUT);
   print "Upload file: $name";
 }
                                               Удачи!
 
 --- GoldED+/386 1.1.4.5
  * Origin: Тра ля ля (2:5059/9.81)
 
 

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