正则表达式匹配多个模式

Question

下面是我的测试字符串：

Object: TLE-234DSDSDS324-234SDF324ER
  Page location: SDEWRSD3242SD-234/324/234 (1)
    org-chart           Lorem ipsum dolor    consectetur adipiscing          # Colorado
    234DSDSDS324-32-4/2/7-page2 (2) loc log  Apr 18 21:42:49 2017           1
      Page information: 3.32.232.212.23, Error: fatal, Technique: color
        Comments: Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. 
      Validation status: Lorem ipsums dolors sits amets, consectetur adipiscing elit
       Positive control-export: Validated
  Page location: SDEWRSD3242SD-SDF/234/324 (5)
    org-chart           Lorem ipsum dolor    consectetur adipiscin          # Arizona
    234DSDSDS324-23-11/1/0-page1 (1) loc log Apr 18 21:42:49 2017           1
      Page information: 3.32.232.212.23, Error: log, Technique: color
        Comments: Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.
      Validation status: Lorem ipsums dolors sits amets, consectetur adipiscing elit
       Positive control-export: Validated

我需要在“页面位置：”、“对象：”和“评论：”之后捕获字符串

例如：

对象：TLE-234DSDSDS324-234SDF324ER - 第 1 组

页面位置：SDEWRSD3242SD-234/324/234 (1) - 第 2 组

页面位置：SDEWRSD3242SD-SDF/234/324 (5) - 第 3 组

评论：Lorem ipsum dolor sit amet、consectetur adipiscing elit、sed do eiusmod tempor incididunt ut labore et dolore magna aliqua。 - 第 4 组

评论：Lorem ipsum dolor sit amet、consectetur adipiscing elit、sed do eiusmod tempor incididunt ut labore et dolore magna aliqua。 - 第 5 组

这是我的regex URL。

我能够捕获字符串，但如果重复任何一个字符串，正则表达式将不会捕获。

Answer 1

（问题描述见问题下方的cmets。）

数据位于多行字符串中，多个部分以Object: 开头。在每行中都有多行以短语Page location: 和Comments: 开头。剩下的所有这些都需要被捕获，并由Objects 组织。

与其尝试折磨人的多行“单”正则表达式，不如将字符串分成几行并逐节处理。这样问题就变得非常简单了。

结果存储在hashrefs数组中；每个键都有显示的短语。由于它们在每个部分中可以出现多次，因此它们的值是 arrayrefs（它们后面的内容）。

use warnings;
use strict;
use feature 'say';

my $input_string = '...'; 
my @lines = split /\n/, $input_string;

my $patt = qr/Object|Page location|Comments/;

my @sections;
for (@lines) 
{
    next if not /^\s*($patt):\s*(.*)/;

    push @sections, {}  if $1 eq 'Object';

    push @{ $sections[-1]->{$1} }, $2;
}

foreach my $sec (@sections) {
    foreach my $key (sort keys %$sec) {
        say "$key:";
        say "\t$_" for @{$sec->{$key}};
    }   
}

复制了输入字符串（为简洁起见，上面不显示），输出为

注释： Lorem ipsum dolor sit amet，[...] Lorem ipsum dolor sit amet，[...] 页面位置： SDEWRSD3242SD-234/324/234 (1) SDEWRSD3242SD-SDF/234/324 (5) 目的： TLE-234DSDSDS324-234SDF324ER

几厘米。

一旦找到Object 行，我们就会向@​​987654329@ 添加一个新的hashref。然后将模式的匹配设置为键，并将其行的其余部分添加到其 arrayref 值。这是针对@sections 的当前（最后一个）元素完成的。

如果模式后面没有任何内容，这会添加一个空字符串。禁止添加next if not $2;

注意。打印复杂数据结构的一种简单而常用的方法是通过核心模块Data::Dumper。但也请参阅Data::Dump 以获得更紧凑的打印输出。