|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Alexander Ponomarenko 2:5030/1067.10 29 Jan 2003 14:27:30 To : news.talk.ru Subject : Чат/форум -------------------------------------------------------------------------------- >> Hу хорошо. Только теперь как это осуществить? Ведь если просто в конце >> скрипт зациклить, он ничего не выводит на экран, т.е. браузер ждет >> окончания работы, потом все выводит. А если зациклить программу, >> окончания не >> происходит. Что делать? nr> нужно 1) отключить кеширование $|=1 nr> и кроме того, у IE есть такой прикол, небольшой буфер, на пару nr> килобайт...пока он его не заполнит - нифига не выведет на экран. nr> т.е. сначала надо бросить в буффер немного текста (чтоб не просто так, nr> можно стили туда запихать) Почему тогда это не работает? В консольном режиме все ок, а в браузере (Conqueror, IE) грузит, ничего не выводит и через несколько секунд дисконнектит. === Cut === #!/usr/bin/perl -w @mas=stat('qq'); $mtime=$mas[8]; $|=1; print"Content-type: text/html\n\n"; print"<html><head><title>fbdsfbdsfhsdhfjsdhfjhsdkjfhjsdhfjkdsjfhsdfjhsdjkfsdfjs d fndsfds fdhsfj fdshfksd fsdhfjkf fhdsjkf</title></head><body>"; while() { @mas=stat('qq'); if($mas[9]!=$mtime) { $mtime=$mas[9]; open(Q,'qq'); while(defined($w=<Q>)) { $a=$w; } close(Q); print $a; } } === Cut === P.S.: скрипт выводит последнюю строку файла при его изменении. Alexander --- GoldED+/386 1.1.4.7 * Origin: (2:5030/1067.10) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/45153e37d7b5.html, оценка из 5, голосов 10
|