Perl:读取文件时跳过N行

Question

在解析文本文件时,如何跳过第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++;
}

不确定这是否有效,但我确信这样做更有说服力.

Answer 1

你可以使用$.:

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()