1

我正在尝试创建一个从 10 倒数到 0 的简单 cgi perl 脚本；但是我似乎无法让它工作。它一直在告诉我malformed header from script. Bad header=HTTP/1.1 200 OK。我是 Perl 和 CGI​​ 脚本的新手，所以我确信这非常简单。

#!/usr/bin/perl
use warnings;
use strict;

use CGI::Push qw(:standard);

my $startingCountDown = 10;

do_push(-next_page => \&refresh, -last_page=> \&lastPage, -delay => 1 );

sub refresh
{
        my ($cgi, $count) = @_;

        return undef if ($startingCountDown - $count < 0);

        my $num = $startingCountDown - $count;
        my $page = $cgi->start_html();
        $page .= $cgi->p("The count is $num").end_html();
        return $page;
}

sub lastPage
{
     my ($cgi, $count) = @_;
    return start_html()."Blast Off".end_html();
}

如果我从终端（在我的 Macbook 上）运行它，我会收到以下错误：WARNING: YOUR BROWSER DOESN'T SUPPORT THIS SERVER-PUSH TECHNOLOGY.. 我试过在 Safari 和 Chrome 中运行这个脚本，但似乎都不起作用。在这种情况下，我将如何编写一个从 10 倒数到 1、每秒更改数字的功能脚本？谢谢。

4

1 回答 1

4

正在使用的“服务器推送”机制CGI::Push（特别multipart/x-mixed-replace是 ）并未得到广泛支持。您将需要选择一种不同的方式来实现这一点；可能最好的方法是让倒计时发生在 Javascript 中，而不是在服务器端。

于 2012-07-18T01:14:35.247 回答