|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Igor Zinkovsky 2:5030/518.75 17 Feb 2003 04:21:44
To : Nikolay
Subject : HTML-form и upload файла
--------------------------------------------------------------------------------
N> ниже приведена ХТМЛ-форма и сам скрипт. Подскажите в чем глюк???
Видимо, их есть тут :)
N> <html><head><title>Title</title></head><body>
N> <form enctype="multipart/form-data" method=get
N> action="/cgi-bin/hh.cgi">
method="post"
N> <input type=file name=image>
N> <input type=submit name=submit> </form> </body> </html>
name не нужен, надпись на кнопке в параметре value
[все остальное ускипано за ненадобностью]
#!/path_to_perl
use CGI;
$query = new CGI;
#проверяем забывчивость
my $check_valid = $query->upload('image');
unless (defined($check_valid)){
#простор для фантазии
}
#images only
my $filename = $query->param('image');
unless ($filename =~ /\.jpg$/i){
#простор для фантазии
}
open (OUTFILE, ">>$outfilename");
binmode OUTFILE;
while ($bytesread=read($filename, $buffer, $ENV{'CONTENT_LENGTH'})){
print OUTFILE $buffer;
}
P.S. кури доку по модулю CGI
No one survive...
---
* Origin: Light is just a visible part of Darkness (2:5030/518.75)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
HTML-form и upload файла 