Forum Webscript.Ru
Программирование => Perl => Тема начата: от 05 Марта 2002, 23:52:07
-
est\' takoe chudo, nada 4tobi ono umelo peredavat\' filename..
kak sdelat\' - ne znaju...podskazhite pls.!
#!/usr/bin/perl
use CGI qw(:standard);
$Name=param ("file1");
$ifilename=param("file_name");
{
open FWR, ">$ifilename";
binmode FWR;
print FWR while (<$Name>);
close FWR;
}
############## H T M L F O R M######################
print "Content-type:text/html\\n\\n";
print "\\n";
print "Type the names of files to be uploaded:
";
print $Name, "\\n";
print $buf, "\\n";
print \'";
print "\\n";
-
См. документацию по CGI, в частности функцию upload ;)
а еще на этом форуме в ФАКе, Chs цельный, работоспособный код скрипта загрузчика файлов привел