Этот пример показывает возможность загрузки файла через форму при помощи модуля 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++;
}
print "Content-type: text/htmln";
print "Location:$donepagenn"; | |
к нему html'ка:
<form ENCTYPE="multipart/form-data" method=post>
<p>File 1: <input TYPE="file" NAME="FILE1" size="20"> File 2:
<input TYPE="file" NAME="FILE2" size="20"> File 3:
<input TYPE="file" NAME="FILE3" size="20"> File 4:
<input TYPE="file" NAME="FILE4" size="20"> File 5:
<input TYPE="file" NAME="FILE5" size="20"> File 6:
<input TYPE="file" NAME="FILE6" size="20"> File 7:
<input TYPE="file" NAME="FILE7" size="20"> File 8:
<input TYPE="file" NAME="FILE8" size="20"> File 9:
<input TYPE="file" NAME="FILE9" size="20">
<input TYPE="submit" VALUE="Upload!"> </p>
</form> | |
Автор: нет данных |