Perl打印文件中的某几行

关注新的技术:Node.js家园

?

如何用Perl打印文件中的某几行信息呢?假如你有一个文件，你只关心某一段文字，大概你会使用比较传统的文件行记数法，然后再来判断这个文件行的区间是否在我们预期的之内。其它这个工作，在Perl中是相当容易实现的。

如下：

use strict;

open F,"c:/remoted.txt" or print "$^E";
??? while(<F>){
??? if(1..10){
??? ??? print;
??? }

这个小“垃圾”程序打印了文件句柄F所关联的文件的前10行。之所以这个程序垃圾，是因为我们没有按照Perl的风格去写代码，只是很随意的写。你知道的，这个东西可以很简约。对，简约就是一种风格。

要特别的说明下，这个代码片段中使用了几个Perl特殊变量，你能看出来吗？

第一：$^E

第二：$.

第三：$_

第一个看上去很明显，而第二个则有很多的人不知道代表着什么，关于第三个，不再多说。

所以，重点是要说说$.这个特殊变量。

$.变量，简单的说，就是跟踪当前记录号。当while循环读取到文件的第一行时，这时$.等于1，以此类推...