regex - How can I split a string and use as prefix the split token on the splitted parts

Question

If I want to split a string by a regex, how can I get the splitter string and as a prefix the part that we split on?
E.g. if I have: "BlaBla Topic Literature bla bla Topic Math bla bla"
And I want to split on Topic and get as the splitter string the Topic as well how do I do that?
E.g. split ('Topic[^:]', $string)
Will return: Literature bla bla but I want to return whatever matched in the split and the splitter string. How do I do that?

Answer 1

我猜你的意思是你想在结果字符串中保留分割分隔符，如下所示：

BlaBla
Topic Literature bla bla
Topic Math bla bla

在这种情况下，您可以使用前瞻断言：

use Data::Dumper;
my $str = "BlaBla Topic Literature bla bla Topic Math bla bla";
my @result = split /(?<=Topic[^:])/, $str;
print Dumper \@result;

输出：

$VAR1 = [
          'BlaBla ',
          'Topic Literature bla bla ',
          'Topic Math bla bla'
        ];

因为前瞻断言的长度为零，所以它在匹配时不会消耗字符串的任何部分。

Answer 2

Use positive look-ahead assertion:

split("(?=Topic[^:])",$input)

use Data::Dumper;
$x="BlaBla Topic Literature bla bla Topic Math bla bla";
@y=split("(?=Topic[^:])",$x);
print Dumper(@y);'

$VAR1 = 'BlaBla ';
$VAR2 = 'Topic Literature bla bla ';
$VAR3 = 'Topic Math bla bla';

Answer 3

Use a non capturing look ahead:

perl -le "$s='BlaBla Topic Literature bla bla Topic Math bla bla';print $_ for split '(?=Topic[^:])', $s"

.....

Topic Literature .....

Topic Math .....

Answer 4

将拆分括在括号中以捕获它：

#!/usr/bin/perl
use strict;
use Data::Dumper;

my $file = "BlaBla Topic Literature bla bla Topic Math bla bla";

my (@new) = split('(Topic[^:])', $file);


print Dumper \@new;

输出：

$VAR1 = [
          'BlaBla ',
          'Topic ',
          'Literature bla bla ',
          'Topic ',
          'Math bla bla'
        ];