perl - 在文件中特定字符串的每个实例之后获取接下来的 7 个字符

Question

我正在寻找一种方法来获取"ISBN="文件中每个单词实例后面的 7 个字符。ISBN=文件中每行一个。

所以像...

my @data = ();
my $word = "ISBN=";

foreach my $line (@file) {
    if (index($line, $word) ge 0) {
        my $d = next seven characters;
        push (@data, $d);
    }
}

我没有线索...

Answer 1

听起来像一个正则表达式和捕获会更容易：

if ($line =~ /ISBN=(.{7})/) {
    push @data, $1;
}

Answer 2

if ($line =~ /\Q$word\E(.{7})/) {
  push(@data, $1);
}

Answer 3

要从字符串中的已知索引获取固定数量的字符，请使用substr函数：

my $d = substr $line, index($line, $word) + length($word), 7;