如何使用特定字母拆分数据,但拆分数据存在于先前的拆分行中.
我的perl代码
$data ="abccddaabcdebb";
@split = split('b',"$data");
foreach (@split){
print "$_\n";
}
ab ccddaab cdeb b
我怎样才能做到这一点
解决方法
您可以使用lookbehind来保持b：
$data ="abccddaabcdebb";
@split = split(/(?<=b)/,$data);
foreach (@split){
print "$_\n";
}
将打印出来
ab ccddaab cdeb b