在解析文本文件时,如何跳过第9行？
这就是我得到的
use strict; use warnings;
open(my $fh,'<','file.txt') or die $!;
my $skip = 1;
while (<$fh>){
$_=~ s/\r//;
chomp;
next if ($skip eq 9)
$skip++;
}
不确定这是否有效,但我确信这样做更有说服力.
解决方法
你可以使用
$.：
use strict; use warnings;
open(my $fh,'file.txt') or die $!;
while (<$fh>){
next if $. == 9;
$_=~ s/\r//;
chomp;
# process line
}
也可以使用$fh-> input_line_number()