Perl：如何从特定模式开始逐字阅读文本文件？

Question

我正在尝试编写一个脚本来读取以空格分隔的文本文件并识别特定模式PATTERN。识别PATTERN 后，脚本应读取RANDOM_NUMBER 的以PATTERN 开头的单词。例如，假设PATTERN 是a 并且RANDOM_NUMBER 是7。那么对于这个文本文件：

1 2 3 4 5 6
a b c d e f 
g h i j k j

我想得到：

a b c d e f
g

作为输出。

到目前为止，我已经能够识别这些模式，但我不知道以后如何处理它。阅读单词的最佳方法是什么？

顺便说一句，我查看了Read text file in Perl word by word instead of line by line，这对我的目的来说有点太模糊了。此外，就代码的作用而言，答案并没有提供太多解释。

Answer 1

好的，所以这里的技巧是设置$/ - 记录分隔符。如果我们将其设置为' '，我们可以一次迭代一个“单词”。

然后我们可以使用范围运算符来“检测”我们是否在我们的模式之间。

local $/ = ' ';

while ( <DATA> ) {
    if ( m/a/ ..  10 ) { print; }
}

现在，这会将 from a 打印到“字段 10” - 这并不是特别有用，因为“计数”从文件的开头开始。 （由

因此，我们可能希望在所见条件为真时“触发”，并继续进行许多其他迭代：

#!/usr/bin/perl
use strict;
use warnings;

local $/ = ' ';

while (<DATA>) {
    if (m/a/) {
        print;
        for ( 2 .. 7 ) { print scalar <DATA>; } #2 because we already have "1"
        last; #assuming we only want to do this once. 
    }
}


__DATA__
1 2 3 4 5 6 
a b c d e f 
g h i j k j

哪些打印：

a b c d e f 
g