|
|
|
(Perl) передача параметра больше 24kb
|
|||
|---|---|---|---|
|
#18+
Добрый день! Кто подскажет, как передать скрипту на Perl параметр в виде объемного текста, который больше 24K. Как только пытаюсь такое сделать, происходит зависание. Задача - передать текст файла и сформировать этот файл на диске. Вот как я пытаюсь это делать (тестовый пример): #!/usr/bin/perl -w #use CGI qw(:standard); - не грузится, происходит внутренняя ошибка. print "Content-Type: text/html\n"; print "Charset: windows-1251\n\n"; print "<HTML><BODY>"; print "Started!<BR>\n"; #print $ENV{'QUERY_STRING'}; $all = $ENV{'CONTENT_LENGTH'}; print $all.'\n'; $part = 1024; while ($all > 0) { # Считываем порцию $srs = sysread(STDIN,$portion,$part); print $portion; print "<BR>"; print 'SRS:'.$srs; print "<BR>"; # Подсчитываем сколько осталось в строке $all = $all - $srs; print 'ALL:'; print $all; print '<BR>'; print '<BR>'; if ($srs > 0) { # Сдвигаем указатель в STDIN-е $sss = sysseek(STDIN, $srs+ 1, 0); } } print "</BODY></HTML>"; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.08.2005, 09:42 |
|
||
|
(Perl) передача параметра больше 24kb
|
|||
|---|---|---|---|
|
#18+
Какой тип запроса? get,post? Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.08.2005, 12:42 |
|
||
|
(Perl) передача параметра больше 24kb
|
|||
|---|---|---|---|
|
#18+
Николай aka MotodorКакой тип запроса? get,post? Код: plaintext Спасибо! Помогло. Метод POST. Есть в этом варианте какие-то ограничения по объему читаемых данных? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.08.2005, 15:38 |
|
||
|
|
start [/forum/topic.php?fid=23&msg=33193548&tid=1477861]: |
0ms |
get settings: |
8ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
204ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
45ms |
get tp. blocked users: |
1ms |
| others: | 244ms |
| total: | 542ms |
| 0 / 0 |
