perl - 如何使用拆分值拆分数据？

Question

如何使用特定字母拆分数据，但拆分数据存在于前一个拆分行中。

我的 perl 代码

$data ="abccddaabcdebb";
@split = split('b',"$data");
foreach (@split){
    print "$_\n";
}  

在这段代码中给出了输出，但我预期的输出是:

ab
ccddaab
cdeb
b

我怎样才能做到这一点

Answer 1

你可以使用lookbehind来保持b :

$data ="abccddaabcdebb";
@split = split(/(?<=b)/, $data);    
foreach (@split){
    print "$_\n";
}  

会打印出来

ab
ccddaab
cdeb
b