- 论坛徽章:
- 0
|
准备设计一个程序，逐行打印一些文本（不是一次输出所有的文本，而是打印一行，停一秒，接着打下一行），于是写出下面的测试程序：
#!/usr/bin/perl
use CGI qw(:standard -nph);
$| = 1;
print header;
print <<EOF;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>Sitemap Writting Test</title>
</head>
<body>
<center>
EOF
print "<h1>Sitemap Writting Test</h1>";
my $br = '<br />';
for($i=0; $i<10;$i++){
print $i, $br;
sleep(2);
}
print '</center></body></html>
这个程序在windows中，无论$|=1还是0，都不是逐行打印，而是等待然后一次输出所有行，而在linux中，程序报错，不能运行（由于是运行在共享服务器上，没有报错误原因）。
请各位帮个忙，看下问题出在那儿，谢谢。 |
|
免费注册
发表于 2014-07-03 20:45
