perl - 如何从文件中读取并在 Perl 中执行 grep？

Question

open(MR, "<path_to_report");
$rid;

文件可能非常大。它内部有一个独特的行，格式如下

Root identifier: <some number>

例如

Root identifier: 12987

我需要将 12987 提取到 $rid。

我如何在 Perl 中做到这一点？

Answer 1

这是使用更现代的成语的另一种方法:

use warnings;
use strict;

open my $file, '<', 'path_to_report'   # 3 arg open is safer
     or die "could not open file: $!"; # checking for errors is good

my $rid;
while (<$file>) {
    last if defined( ($rid) = /Root identifier: (\d+)/ );
}

close $file;

if (defined $rid) {
    # do something with $rid
}