如何在 Perl 中提取两个行分隔符之间的行？

Question

我有一个 ASCII 日志文件，其中包含一些我想要提取的内容。 我从来没有花时间正确学习 Perl，但我认为这是完成这项任务的好工具。

该文件的结构如下：

... 
... some garbage 
... 
... garbage START
what i want is 
on different
lines 
END 
... 
... more garbage ...
next one START 
more stuff I want, again
spread 
through 
multiple lines 
END 
...
more garbage

因此，我正在寻找一种方法来提取每个 START 和 END 分隔符字符串之间的行。 我怎样才能做到这一点？

到目前为止，我只找到了一些有关如何使用 START 字符串打印一行的示例，或与我正在寻找的内容有些相关的其他文档项目。

Answer 1

您需要触发器运算符（也称为范围运算符）..

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

while (<>) {
  if (/START/../END/) {
    next if /START/ || /END/;
    print;
  }
}

将对 print 的调用替换为您实际想要执行的操作（例如，将行推入一个数组，编辑它，格式化它，等等）。 我next - 超过了实际具有START 或END 的行，但您可能不希望出现这种行为。 有关此运算符的讨论，请参阅本文其他有用的 Perl 特殊变量。

Answer 2

来自 perlfaq6 的回答 如何拉出本身位于不同行的两个模式之间的行？

---

您可以使用 Perl 有点奇特的 .. 运算符（在 perlop 中记录）：

perl -ne 'print if /START/ .. /END/' file1 file2 ...

如果您想要 但是，

perl -0777 -ne 'print "$1\n" while /START(.*?)END/gs' file1 file2 ...

如果您想要嵌套出现 START 到 END，您将遇到本节中有关匹配平衡文本的问题中描述的问题。

这是使用 .. 的另一个示例：

while (<>) {
    $in_header =   1  .. /^$/;
    $in_body   = /^$/ .. eof;
# now choose between them
} continue {
    $. = 0 if eof;  # fix $.
}

Answer 3

如何在Perl 中的匹配行？

那怎么样？ 其中，END 字符串是 $^，您可以将其更改为您的 END 字符串。

我也是新手，但是那里的解决方案提供了相当多的方法...让我更具体地知道您想要的与上面的链接不同的是什么。

Answer 4

while (<>) {
    chomp;      # strip record separator
    if(/END/) { $f=0;}
    if (/START/) {
        s/.*START//g;
        $f=1;
    }
    print $_ ."\n" if $f;
}

下次尝试写一些代码

Answer 5

忒勒马科斯答复后，事情开始倾泻而出。 这毕竟是我正在寻找的解决方案。

1. 我试图在单独的行中提取由两个字符串分隔的行（一个以“CINFILE=”结尾的行；另一个以包含单个“#”的行），不包括分隔符行。 我可以用特勒马科斯的解决方案来做到这一点。
2. 第一行有一个空格我想删除。 我也把它包括在内。
3. 我还尝试将每个行集提取到单独的文件中。

这对我有用，尽管代码可以被归类为丑陋； 这是因为我目前几乎是 Perl 的新手。 无论如何，

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

my $start='CINFILE=
我希望它也能对其他人有益。

  干杯。
;
my $stop='^#
我希望它也能对其他人有益。

  干杯。
;
my $filename;
my $output;
my $counter=1;
my $found=0;

while (<>) {
  if (/$start/../$stop/) {
    $filename=sprintf("boletim_%06d.log",$counter);
    open($output,'>>'.$filename) or die $!;
    next if /$start/ || /$stop/;
    if($found == 0) { print $output (split(/ /))[1]; }
    else { print $output $_; }
    $found=1;
  } else { if($found == 1) { close($output); $counter++; $found=0; } }
}

我希望它也能对其他人有益。
干杯。

Answer 6

对于来自“虚拟新人”来说还不错。 您可以做的一件事是将“$found=1”放在“if($found == 0)”块内，这样您就不会每次在 $start 和 $stop 之间执行该分配。

在我看来，另一件有点丑陋的事情是，每次输入 $start/$stop-block 时都会打开相同的文件处理程序。

这显示了一种解决方法：

#!/usr/bin/perl

use strict;
use warnings;

my $start='CINFILE=
;
my $stop='^#
;
my $filename;
my $output;
my $counter=1;
my $found=0;

while (<>) {

    # Find block of lines to extract                                                           
    if( /$start/../$stop/ ) {

        # Start of block                                                                       
        if( /$start/ ) {
            $filename=sprintf("boletim_%06d.log",$counter);
            open($output,'>>'.$filename) or die $!;
        }
        # End of block                                                                         
        elsif ( /$end/ ) {
            close($output);
            $counter++;
            $found = 0;
        }
        # Middle of block                                                                      
        else{
            if($found == 0) {
                print $output (split(/ /))[1];
                $found=1;
            }
            else {
                print $output $_;
            }
        }

    }
    # Find block of lines to extract                                                           

}