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

surezj

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

($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

try add
$|++;
before while

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

fayland

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

Thanks.

surezj

that's ok. thank you!

surezj

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

MMMIX

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

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

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

flw

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

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

同意。

dalian_gq

受教了

dream_one

高人还不少呢！