|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ivan Lebedev 2:5000/151 01 Jun 2002 16:47:36
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);
}
. Black Sabbath - When Death Calls
За сим откланиваюсь.
... 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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
