少了一个\n出现的问题

chenxiam

UID: 36361
帖子: 28
积分: 64
在线时间: 1 小时

1^# chenxiam 发表于 2007-09-13 16:30

少了一个\n出现的问题

#!/usr/bin/perl
use Hook::LexWrap;
my $COUNT=0 ;
wrap 'myfunction',
pre => sub { $COUNT++ },
post => sub { print "end\n" };

END{print "myfunction() called $COUNT times.\n"} ;
myfunction();

sub myfunction{

print "myfunction\n";

}

为什么我把\n去掉的话，就不会显示 myfunction() called $COUNT times这句话了呢？

sewenew

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

2^# sewenew 发表于 2007-09-13 18:17

（猜下：）没有刷新缓冲区，\n能起到刷新缓冲区的作用

chenxiam

UID: 36361
帖子: 28
积分: 64
在线时间: 1 小时

3^# chenxiam 发表于 2007-09-13 19:01

QUOTE:

原帖由 sewenew 于 2007-9-13 18:17 发表
（猜下：）没有刷新缓冲区，\n能起到刷新缓冲区的作用

谢谢了