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