我想每隔5秒打印一次时间,为什么这么写没有输出呢?

surezj

UID: 469
帖子: 64
积分: 147
在线时间: 5 小时

1^# surezj 发表于 2008-10-14 12:39

我想每隔5秒打印一次时间,为什么这么写没有输出呢?

是不是由于循环一直没有结束,所以不会有结果打印出来?

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time-86400);
$year += 1900;
$mon += 1;
$mday += 1;

$logtime = "$year年$mon月$mday日 $hour时$min分$sec秒";

while ($year)
   {print "$logtime";
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time-86400);
   $year += 1900;
   $mon += 1;
   $mday += 1;
   $logtime = "$year年$mon月$mday日 $hour时$min分$sec秒";
   sleep 5}

fayland

UID: 42116
帖子: 36
积分: 82
在线时间: 1 小时

2^# fayland 发表于 2008-10-14 13:09

try add
$|++;
before while

and sleep 5 is not sleep 5 minutes, that's just 5 secs.

fayland

UID: 42116
帖子: 36
积分: 82
在线时间: 1 小时

3^# fayland 发表于 2008-10-14 13:09

sorry, ignore the sleep 5. I just misunderstanding your post.

Thanks.

surezj

UID: 469
帖子: 64
积分: 147
在线时间: 5 小时

4^# surezj 发表于 2008-10-14 13:54

that's ok. thank you!

surezj

UID: 469
帖子: 64
积分: 147
在线时间: 5 小时

5^# surezj 发表于 2008-10-14 14:08

Could you kindly explain why it works when added $|+++

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

6^# MMMIX 发表于 2008-10-14 14:43

QUOTE:

原帖由 surezj 于 2008-10-14 14:08 发表
Could you kindly explain why it works when added $|+++

在 perlvar 中看看 $| 是什么意思。

另外，我觉着用 $| = 1; 这种方式更清楚些。

flw

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

7^# flw 发表于 2008-10-14 14:44

QUOTE:

原帖由 MMMIX 于 2008-10-14 14:43 发表

另外，我觉着用 $| = 1; 这种方式更清楚些。

同意。

dalian_gq

UID: 12362
帖子: 187
积分: 430
在线时间: 1 天 23 小时

8^# dalian_gq 发表于 2008-10-14 22:41

受教了

dream_one

UID: 7933
帖子: 113
积分: 259
在线时间: 17 小时

9^# dream_one 发表于 2008-10-16 10:42

高人还不少呢！