Perl：读取文件时跳过N行

发布时间：2020-12-16 06:08:30 所属栏目：大数据来源：网络整理

导读：在解析文本文件时,如何跳过第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++;} 不确定这是否有效,但我确信这样做更有说服力. 解决方法

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

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

解决方法

你可以使用 $.：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!