Perl打印文件中的某几行

q666123

　　关注新的技术:Node.js家园
　　如何用Perl打印文件中的某几行信息呢?假如你有一个文件，你只关心某一段文字，大概你会使用比较传统的文件行记数法，然后再来判断这个文件行的区间是否在我们预期的之内。其它这个工作，在Perl中是相当容易实现的。
　　如下：
　　use strict;
　　open F,"c:/remoted.txt" or print "$^E";
　　while(){
　　if(1..10){
　　print;
　　}
　　这个小“垃圾”程序打印了文件句柄F所关联的文件的前10行。之所以这个程序垃圾，是因为我们没有按照Perl的风格去写代码，只是很随意的写。你知道的，这个东西可以很简约。对，简约就是一种风格。
　　要特别的说明下，这个代码片段中使用了几个Perl特殊变量，你能看出来吗？
　　第一：$^E
　　第二：$.
　　第三：$_
　　第一个看上去很明显，而第二个则有很多的人不知道代表着什么，关于第三个，不再多说。
　　所以，重点是要说说$.这个特殊变量。
　　$.变量，简单的说，就是跟踪当前记录号。当while循环读取到文件的第一行时，这时$.等于1，以此类推...