perl split但使用第二个字符串保留特殊分隔符

Question

我有以下字符串,我需要拆分,但我需要保持分隔符与字符串的第二部分.所以我最终得到:

$a = 'State of mind is primary';
$b = '\098\455\098evertyhing else is secondary.-Eckhart Tolle '

我的尝试:

my $string = 'State of mind is primary\098\455\098evertyhing else is secondary. -Eckhart Tolle';

my $separator = '\098\455\098';
my ($a, $b) = split($separator, $string);
print "$a\n";
print "$b\n";

如何通过perl拆分实现这一目标？

Answer 1

拆分序列之前的0长度字符串.

my ($x, $y) = split(/(?=\\098\\455\\098)/, $string);