perl 如何实现页面加载后，逐行显示页面内容

shiru_tx

UID: 42266
帖子: 160
积分: 368
在线时间: 1 天 11 小时

1^# shiru_tx 发表于 2008-11-17 10:20

perl 如何实现页面加载后，逐行显示页面内容

请教，perl如何实现像打印机一样，逐行打印显示内容。

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

2^# hfahe 发表于 2008-11-17 10:28

perl无法实现请用javascript

shiru_tx

UID: 42266
帖子: 160
积分: 368
在线时间: 1 天 11 小时

3^# shiru_tx 发表于 2008-11-17 10:32

是这样，该页面需要每隔10秒执行一个外挂操作，然后返回操作结果。我的想法就是能在该页面及时打印出来，而不需要等带很长时间，再显示所有结果（这样，让人受不了等待的时间）。

hoyi

UID: 19214
帖子: 1
积分: 2
在线时间: 10 分钟

4^# hoyi 发表于 2008-11-17 10:34

更多你可以GOOGLE一下
关键词 NPH

#!/usr/bin/perl
use CGI qw/:push -nph/;
$| = 1;
print multipart_init(-boundary=>''--boundary'');
while (1) {
  print multipart_start(-type=>''text/plain''),
  "The current time is ",scalar(localtime),"n",
  multipart_end;
  sleep 1;
}

ghostsaint

UID: 6991
帖子: 186
积分: 427
在线时间: 1 天 23 小时

5^# ghostsaint 发表于 2008-11-17 11:25

还是分开写, 一个perl后台处理数据, 一个前台页面Ajax定时请求后台, 获得数据后附加至本页面.

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

6^# ynchnluiti 发表于 2008-11-17 17:24

QUOTE:

原帖由 hoyi 于 2008-11-17 10:34 发表
更多你可以GOOGLE一下
关键词 NPH

#!/usr/bin/perl
use CGI qw/:push -nph/;
$| = 1;
print multipart_init(-boundary=>''--boundary'');
while (1) {
print multipart_start(-type=>''text/p ...

好像有的浏览器不支持。没记错的话是IE.

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

7^# ynchnluiti 发表于 2008-11-17 17:24

QUOTE:

原帖由 ghostsaint 于 2008-11-17 11:25 发表
还是分开写, 一个perl后台处理数据, 一个前台页面Ajax定时请求后台, 获得数据后附加至本页面.

可行的办法。

xiaoyu9805119

UID: 39268
帖子: 67
积分: 154
在线时间: 6 小时

8^# xiaoyu9805119 发表于 2008-11-18 10:34

ajax请求，请求完成显示一行。

shiru_tx

UID: 42266
帖子: 160
积分: 368
在线时间: 1 天 11 小时

9^# shiru_tx 发表于 2008-11-18 10:37

QUOTE:

原帖由 hoyi 于 2008-11-17 10:34 发表
更多你可以GOOGLE一下
关键词 NPH

#!/usr/bin/perl
use CGI qw/:push -nph/;
$| = 1;
print multipart_init(-boundary=>''--boundary'');
while (1) {
print multipart_start(-type=>''text/p ...

感谢 hoyi ！

已经实现我要的效果！目前在IE6，IE7上显示均无问题。至于其他非IE的浏览器，因系统是内部使用，都统一使用IE，所以使用上不存在问题。

结贴！

perl 如何实现页面加载后， 逐行显示页面内容

perl 如何实现页面加载后， 逐行显示页面内容

perl 如何实现页面加载后，逐行显示页面内容

perl 如何实现页面加载后，逐行显示页面内容