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