|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexandr Shaykin 2:5064/7.93 11 Oct 2002 08:53:14
To : InSAn \(Panchuk Andrey\)
Subject : Re: Как отдавать браузеру инфо по мере поступления (не рвал коннект)?
--------------------------------------------------------------------------------
I\A> перед вывод инфы:
I\A> $| = 1;
I\A> Более подробно - в документации. Или с детства и документацию не полюбил?
аивный чукотский ....
где-то я про такое мнение читал
проверял, но не работает
сервер не отдает вывот браузеру, и ждет завершения работы скрипта и в броузере
ничего не от ображается (кроме процесса загрузки :)
я даже пробовал через мультипарты
здесь что-то связано с форматом заголовка ответа, или код ответа
#!/usr/bin/perl
#nph-animate.cgi
@files = qw(img0.gif img1.gif);
select (STDOUT);
$|=1; #autoflush mode on
#Generate header
print "HTTP/1.0 200 Okay\n";
print "Content-Type: multipart/x-mixed-replace;boundary=myboundary\n\n";
print "--myboundary\n";
for ($num=1;$num<=$times;$num++) {
foreach $file (@files) {
print "Content-Type: image/gif\n\n";
open(PIC,"$file");
print <PIC>;
close(PIC);
print "\n--myboundary\n";
sleep(3);
}
}
print "\n--myboundary--\n";
----///
--- FIPS/2000
* Origin: #!/usr/bin/perl (2:5064/7.93)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Как отдавать браузеру инфо по мере поступления (не рвал коннект)? 