Perl Regex New Line and no Chartial

Question

我正在尝试从输入文件中提取多行，以输出文件线仅使用Perl中的Regex包含头。逻辑是在数组中添加令牌，然后将traverse Array添加为头部。在添加阵列中的令牌时，添加了匹配的正则匹配的正则表达式新线条，没有字符。

my @arr = split("\n",$str);

foreach my $token (@arr) {
    print "Inside for\n";
    if($token =~ m[head])
    {
        print "Inside if";
        print $token;
    }
} 

**File Content**
**InputFile.txt**

- text1
- text2
- head

- text4
- text5
- non head

- text8
- text9
- head

**OutputFile.txt**
- text1
- text2
- head

- text8
- text9
- head

Answer 1

可以在段落中读取输入（ -00 switch> -00 switch ）实际上总是像那样的空白，如果它具有（在这种情况下为结束），则打印一个段落，

perl -00 -wne'print if /\n\s*- head\s*\z/'  file

我使用\ z 断言但是$在给定示例中也很好。

---

在脚本中，这是通过设置输入记录分隔仪

use warnings;
use strict;

local $/ = "\n\n";

while (<>) { 
    print if /\n\s*- head\s*\z/;
}

我们想要 local ，请不要为整个运行中的所有内容更改$/（在较大的程序中）。

---

评论将问题扩大了一点，以便

...头后有2-3行，也应包括在内

在段落中读取文件时容易容纳的行 - 只需更改正则义务，以便在任何地方都匹配模式/线（不仅在结尾），这样的话，

/\n\s*- head\s*\n/

如果线处于末尾，仍然可以匹配。

Answer 2

逐行阅读文件时，可以使用“滑动窗口”技术实现预期的输出。

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

my @buffer;
while (<>) {
    if (/- head$/) {
        print splice @buffer;
        print;
    } elsif (/^$/) {  # Same as ("\n" eq $_)
        @buffer = ("\n");
    } else {
        push @buffer, $_;
    }
}