ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Konstantin Stepanenkov               2:5030/1251.128 20 Jan 2002  17:17:30
 To : Sergey Sokolov
 Subject : Re: Upload
 -------------------------------------------------------------------------------- 
 

 
  SS> Как загpyзить каpтинкy на сеpвеp?
 
 #!/usr/bin/perl -w
 use CGI qw/:standard/;
 use strict;
 use vars qw/$upload_dir/;
 $upload_dir = '/home/www/html/upload/';
 
 ...
 
 if ((my $fh = param('pict')) ne '') {
   my $fname = $fh;
   $fname =~ s(^.*[/\\])();
 
   open (FH, ">$upload_dir$fname")
    or create_error("Cannot create file:$!");
 
   binmode(FH);
   binmode($fh);
 
   print FH while(<$fh>);
 
   close(FH);
   close($fh);
 }
 
 ...
 
 -- 
   wbr, kst
 
 --- tin/1.5.8-20010221 ("Blue Water") (UNIX) (FreeBSD/4.2-RELEASE (i386))
  * Origin: Alien Telecom (2:5030/1251.128)
 
 

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

Тема:    Автор:    Дата:    Upload   Sergey Sokolov   19 Jan 2002 03:51:58   Re: Upload   Konstantin Stepanenkov   20 Jan 2002 17:17:30