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