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