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

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 split 做到这一点？

标签： perl

Answer 1

在序列之前的 0 长度字符串上拆分。

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