如何使用Perl获取文件的当前行号？

发布时间：2020-12-15 21:17:56 所属栏目：大数据来源：网络整理

导读：open my $fp,'',$file or die $!;while ($fp) { my $line = $_; if ($line =~ /$regex/) { # How do I find out which line number this match happened at? }}close $fp; 解决方法使用$。 (见 perldoc perlvar )。

open my $fp,'<',$file or die $!;

while (<$fp>) {
    my $line = $_;
    if ($line =~ /$regex/) {
        # How do I find out which line number this match happened at?
    }
}

close $fp;

解决方法

使用$。 (见 perldoc perlvar)。

（编辑：李大同）

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