perl - 使用 Perl 惯用语 $/和 q||逐 block 读取文本文件

Question

我想了解一些 Perl 用于逐块读取文本文件的代码。

文本文件 MYFILE看起来像这样:

First block
First Line: Something in here
Second Line: More here
Third Line: etc.

Second block
First Line: Something in here
Second Line: More here
Third Line: etc.

该代码用于提取找到正则表达式的块的行(它工作正常，我只是想了解它)。

这是我不明白的代码部分:

local $/ = q||;
while (<MYFILE>) {
    do something;
}

有人可以向我解释什么是行 local $/ = q||;是在做？

Answer 1

$/是 input record separator . “这影响了 Perl 对“线”是什么的看法”。将其设置为空字符串，即 ''导致空行拆分记录。 q||符号引用管道内的东西，所以 q||与 '' 相同.您可以在 q 中使用各种分隔符前缀:q(), q//也是一样的。