獲得重複的正則表達式匹配

Question

我有一個字符串，例如

my $str = "Dave birthday on 11/12/68 Fred enjoys cooking Wilma likes cake" 

我有一些字符串我想，以滿足他們的名字和文本，直到下一場比賽，所以我目前正在

my $re = "(Dave|Sally|Fred|John|Wilma)" # created dynamically 

我可以反覆做像

比賽

my @matches; 
push @matches, [$1, $2] while $str =~ /$re/g; 
warn Dumper @matches; 

不知道我會放拉出$ 2

這將抓住匹配，但我想找到一種方法來匹配中間部分直到下一個匹配，所以理想情況下我最終會得到類似的東西（不關心它的數組，哈希或任何）。

[["Dave"," birthday on 11/12/68"], 
["Fred"," enjoys cooking"], 
["Wilma"," likes cake"]] 

我也許可以通過分割字符串匹配的位置和剩餘做到這一點，但我想知道是否有我缺少任何明顯的正則表達式的方法是什麼？

Answer 1

使用預讀斷言，以便下一個搜索在結束上一個搜索的名稱之前開始。

#! /usr/bin/perl 
use warnings; 
use strict; 
use feature 'say'; 

my $str = 'Dave birthday on 11/12/68 Fred enjoys cooking Wilma likes cake'; 
my $names_re = qr/Dave|Sally|Fred|John|Wilma/; 
my $re = qr/($names_re) (.*?)(?= $names_re|$)/; 

my @matches; 
push @matches, [ $1, $2 ] while $str =~ /$re/g; 

use Data::Dumper; print Dumper \@matches; 

Answer 2

使用split與捕獲組以產生哈希：

#!/usr/bin/perl 
use warnings; 
use strict; 
use Data::Dumper qw(Dumper); 

my $str = 'Dave birthday on 11/12/68 Fred enjoys cooking Wilma likes cake'; 
my $names_re = qr/(Dave|Sally|Fred|John|Wilma)/; 

my @parts = split /\s*\b$names_re\b\s*/, $str; 
shift @parts; 
my %result = @parts; 

print Dumper \%result;