perl - 注册：Perl CGI 脚本自动更新新数据

Question

嗨这个脚本需要 3*2 秒的时间，然后立即在浏览器中打印输出，帮助重新

#!C:/perl/bin/perl.exe
use warnings;
use strict;
use CGI;

my $cgi = new CGI;
print $cgi->header();
print $cgi->start_html("First");
print $cgi->h1("First");
sleep(2);
print $cgi->h1("Second");
sleep(2);
print $cgi->h1("Third");
print $cgi->end_html();

Answer 1

您可以设置$| = 1;在每次打印时刷新输出缓冲区，但看起来Apache 会等待脚本完成运行后再返回任何内容，因此您可能需要将睡眠逻辑移动到客户端 JavaScript 中。