for循环里的print

infernor

UID: 34206
帖子: 3
积分: 6
在线时间: 10 分钟

1^# infernor 发表于 2008-08-21 01:49

for循环里的print

大骆驼里的一个例子

QUOTE:

for (reverse 'BOOM', 1 .. 10) {
print "$_\n"; sleep(1);
}

运行得出预期的结果。

下面的代码却不能正常运行

QUOTE:

for (reverse 'BOOM', 1 .. 10) {
print ; sleep(1);
}

去掉sleep (1)这条语句却能得到预期的结果

QUOTE:

for (reverse 'BOOM', 1 .. 10) {
print ;
}

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-08-21 08:25

是可以的，你耐心点，等上 11 秒钟就可以了。

google 一下“stdout 是行缓冲的”，多学习学习吧。
解决办法是在程序开头加上 $|=1;
或者把 print 改成 say（perl 5.10），再或者把 print; 改成 print "$_\n";

infernor

UID: 34206
帖子: 3
积分: 6
在线时间: 10 分钟

3^# infernor 发表于 2008-08-21 09:22

明白了。多谢flw

smonkey0

UID: 42438
帖子: 74
积分: 170
在线时间: 7 小时

4^# smonkey0 发表于 2008-08-21 09:43

QUOTE:

原帖由 flw 于 2008-8-21 08:25 发表
是可以的，你耐心点，等上 11 秒钟就可以了。

google 一下“stdout 是行缓冲的”，多学习学习吧。
解决办法是在程序开头加上 $|=1;
或者把 print 改成 say（perl 5.10），再或者把 print; 改成 print "$_\n";

say? 完了。。绝对落伍了我。。

cobrawgl

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

5^# cobrawgl 发表于 2008-08-21 10:13

QUOTE:

原帖由 smonkey0 于 2008-8-21 09:43 发表

say? 完了。。绝对落伍了我。。

perl 5.10

版主看来很喜欢 5.10

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

6^# 不死草发表于 2008-08-21 11:03

哦，这样都行啊，还等上11秒？FLW确实强悍。