ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ivan Lebedev                         2:5000/151     01 Jun 2002  16:47:37
 To : All
 Subject : Скрипт, копирующий файл..
 -------------------------------------------------------------------------------- 
 

 Вообщем, сие чудо только создает пустой файл... Где косяк? Подскажите, плиз..
 
 #!/usr/bin/perl -w
 use CGI ":standard";
 $upload_dir = 'c:/1/';
 
 if (($fh = 'C:\zap.exe') ne '') {
      $fname = $fh;
      $fname =~ s(^.*[/\\])();
 
      open (FH, ">$upload_dir$fname");
 
      binmode(FH);
      binmode($fh);
 
      print FH while(<$fh>);
      close(FH);
      close($fh);
 }
 . Metallica - Orion
                                                За сим откланиваюсь.
 ... LS 5MVP3 rev4/K6-2/500/320/Fujitsu 13.6+WD 3.2/Samsung SyncMaster 3Ne
 --- [Конспирация]ъ[Гитара]ъ[Hет денег]
  * Origin: http://odigo-nsk.hut.ru (2:5000/151)
 
 

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

Тема:    Автор:    Дата:    Скрипт, копирующий файл..   Ivan Lebedev   01 Jun 2002 16:47:37   Re: Скрипт, копирующий файл..   Dmitry Koteroff   10 Jun 2002 19:50:04