有一特殊变量记录着当前行号，即：$.
实例如下：
test.txt
1
2
3
源代码：
复制代码 代码如下:
#!/opt/dc_perl/bin/perl
open(rhd,"test.txt");
while (my $line = <rhd>){
my $num = $.;
print "Current->$numn";
}
close rhd;
显示:
Current->1
Current->2
Current->3
以前真的没有发现该变量存在，写出来供大家参考吧。还请多多指教！
复制代码 代码如下:
#!/usr/bin/perl -w
open (F1,"b.txt");
while (<F1>) {
#$num=$.;
if ($.<=10 && $.>=5) {
print "$. $_";
}
}
close F1;
