ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitriy Kuvshinov 2:5020/400 09 Dec 2000 12:49:16
To : Sasha
Subject : например вот так:
--------------------------------------------------------------------------------
вот так:
#!/usr/bin/perl -w
$basedir = "/usr/local/www/data/fileupload";
$donepage = "http://www.server.ru/fileupload";
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<br>";
while (my $bytesread = read($file, my $buffer, 1024)) {
print OUTFILE $buffer;
}
close (OUTFILE);
}
$onnum++;
}
print "Content-type: text/html\n";
print "Location:$donepage\n\n";
html:
<html>
<body>
<form method="POST" action="/cgi-bin/fup.pl" ENCTYPE="multipart/form-data">
File 1: <input type="file" name="FILE1">
<br>
File 2: <input type="file" name="FILE2">
<br>
File 3: <input type="file" name="FILE3">
<br>
File 4: <input type="file" name="FILE4">
<br>
File 5: <input type="file" name="FILE5">
<br>
File 6: <input type="file" name="FILE6">
<br>
File 7: <input type="file" name="FILE7">
<br>
File 8: <input type="file" name="FILE8">
<br>
File 9: <input type="file" name="FILE9">
<br>
<input type="submit" value="Upload!">
</form>
</body>
</html>
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
Как закачать файл? |
Sasha |
09 Dec 2000 06:54:03 |
 например вот так: |
Dmitriy Kuvshinov |
09 Dec 2000 12:49:16 |
|
|
