|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 26 Nov 2002 16:26:49
To : Artem Chuprina
Subject : Re: post files
--------------------------------------------------------------------------------
.ru> <slrnau4iih.fe4.ran@banquet.lan.ice.ru>
From: Konstantin Tokar <tokar@apmsun.mpei.ac.ru>
Вот кусок файла с формой:
<form action="test1.pl" method="post" enctype="multipart/form-data"
target="_blank">
<p> uploaded_file: <input type="File" name="uploaded_file" >
<p> uploaded_text: <input type="text" name="uploaded_text" >
<p> <input type="Submit">
</form>
а вот скрипт, который разбирается, файл перед нами или переменная. Если
заданный файл не существует, то передается на сервер пустое тело, как
будто файл есть, но пустой. Эту ситуацию похоже отследить нельзя.
#!perl -w
use strict;
use CGI;
my $cgi = new CGI;
print $cgi->header;
print $cgi->start_html;
foreach ($cgi->param()){
eval {
my $fh;
if( $fh = $cgi->upload($_) ){
print "<p>$_ == File";
}
else {
print "<p>$_ == Variable";
}
};
print "<p>Error: $@" if $@;
}
print $cgi->end_html;
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
