Будем очень признательны если вы пришлёте свои скрипты, шаблоны, статьи и многое другое, что может понадобиться для создания сайта. admin@webmas.ru
При перепечатке материалов ссылка на www.webmas.ru обязательна.
Пример загрузки файла в Perl.
Пример загрузки файла в Perl.
Этот пример показывает возможность загрузки файла через форму при помощи модуля CGI. Очень просто и красиво.
#!/usr/bin/perl -w
$basedir = "/usr/home/kuku/site";
$donepage = "http://www.lala.ru/~kuku/site";
use CGI;
$onnum = 1;
while ($onnum != 11)
{
my $req = new CGI;
my $file = $req->param("FILE$onnum");
if ($file ne "")
{
my $fileName = $file;
$fileName =~ s!^.*(\|/)!!;
$newmain = $fileName;
open (OUTFILE,">$basedir/$fileName");
print "$basedir/$fileName";
while (my $bytesread = read($file, my $buffer, 1024))
{
print OUTFILE $buffer;
}
close (OUTFILE);
}
$onnum++;
}