regex - 文字列を分割し、分割された部分の分割トークンをプレフィックスとして使用するにはどうすればよいですか

Question

文字列を正規表現で分割したい場合、スプリッター文字列を取得し、分割した部分をプレフィックスとして取得するにはどうすればよいですか?
たとえば、「BlaBla Topic Literature bla bla Topic Math bla bla」
があり、Topic で分割し、分割文字列として Topic を取得するにはどうすればよいですか?
例split ('Topic[^:]', $string)
: が返されます: しかし、分割とLiterature bla bla分割文字列で一致したものは何でも返したいです。それ、どうやったら出来るの？

Answer 1

I am guessing you mean that you want to keep the split delimiter in the resulting strings, like so:

BlaBla
Topic Literature bla bla
Topic Math bla bla

In which case you can use a lookahead assertion:

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

Output:

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

Because the lookahead assertion is zero-length, it does not consume any part of the string when it matches.

Answer 2

非キャプチャ先読みを使用します。

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

.....

トピック文学 .....

トピック 数学 .....

Answer 3

肯定的な先読みアサーションを使用します。

split("(?=トピック[^:])",$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 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'
        ];