|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Konstantin Ursaloff 2:5020/400 17 Apr 2001 11:26:24
To : All
Subject : Форма для загрузки файлов на сервер? Какой предел размера?
--------------------------------------------------------------------------------
Я пытался загрузить текстовый файл.
Как обработать его с помощью CGI.pm инфу не нашел, просвятите если кто то
знает, пробую прочитать все данные из STDIN вот что вышло. Hо данный скрипт
если тестирую его на Винде, да и на провайдере тоже не получалось, если файл
около 10K.
Пожалуйста скажите какой максимальный размер?
Вот кусок скрипта
if ($ENV{CONTENT_TYPE}=~/multipart/){
print "SENDED<BR>$ENV{CONTENT_TYPE}<BR>";
$ENV{CONTENT_TYPE}=~/boundary=(\S+)/;
$bound=$1;
my $query;
print "BOUND=$bound <BR>";
print "ID=<BR>";
print "<PRE>$ENV{CONTENT_LENGTH}\n";
sysread(STDIN,$query,$ENV{CONTENT_LENGTH});
print "QUERY:\n $query</PRE>";
}
else{
print <<ALL__;
<H2>Обновим?</H2>
<FORM action="chprice.pl" enctype="multipart/form-data" method="POST">
ID фирмы: <input type="text" name="id">
<input type="file" name="myfile">
</FORM>
ALL__
Скрипт работает если файл не больше пары килобайт,
Задача, короче получить переменную $query, как ее разбить и обработать я
разберусь, спасибо.
Hо вот файлы ожидаются размером от 2 до 30К. Что делать?
PS В Винде заметил что" sysread(STDIN,$query,$ENV{CONTENT_LENGTH}); виснет
при длине файла более 2K
Best regards from
Ursaloff
------------------------------------------------------------
http://www.ursaloff.mksat.net/
------------------------------------------------------------
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
