ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     03 Jun 2002  19:03:58
 To : Ivan Lebedev
 Subject : Re: Скрипт, копирующий файл..
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Ivan Lebedev.
 
 IL> Вообщем, сие чудо только создает пустой файл... Где косяк? Подскажите,
 IL> плиз..
 
 IL> #!/usr/bin/perl -w
 IL> use CGI ":standard";
 IL> $upload_dir = 'c:/1/';
 
 IL> if (($fh = 'C:\zap.exe') ne '') {
 IL>      $fname = $fh;
 IL>      $fname =~ s(^.*[/\\])();
 
 IL>      open (FH, ">$upload_dir$fname");
 
 IL>      binmode(FH);
 IL>      binmode($fh);
 
 IL>      print FH while(<$fh>);
 IL>      close(FH);
 IL>      close($fh);
 IL> }
 
 Естественно. Может, ты и имел в виду скопировать файл, но явно этого не
 делаешь.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Скрипт, копирующий файл..   Ivan Lebedev   01 Jun 2002 16:47:36   Re: Скрипт, копирующий файл..   Artem Chuprina   03 Jun 2002 19:03:58