统计行数?

BBDD

不好意思，我是刚刚才学perl，还不知道怎么样一次读取整个文件。

请再看一遍我的那个“用php标签贴perl代码似乎会有问题”的帖子。
:cool:

BBDD

1. 
   
2. int j = 0; /* multi line comments
   
3.             * followed by a statement
   
4.             */
   

复制代码

:p

pupilzeng

最初由 BBDD 发表

1. 
   
2. int j = 0; /* multi line comments
   
3.             * followed by a statement
   
4.             */
   

复制代码

:p

嗬嗬，这确实又是不问题。

pupilzeng

看来perl的哲学跟C是完全不一样的。
还得慢慢的适应

pupilzeng

1. 
   
2. $line=join '',<FH>; # we got a real big line...
   

复制代码

这一句怎么解释？
<FH>不是读取一行吗？

BBDD

$line = join '', <FH>;
这句话相当于下面两句：
@tmp = <FH>;               
$line = join '', @tmp;

效率更高的做法是：
undef $/;
$lines = <FILE>;