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