string - perl 使用正则表达式拆分字符串，但将分隔符连接到输出

Question

我有一个像这样的字符串:

za b c
   x y
   x z
ya b c
   x y
   x z

现在如果我拆分为:

my @lines = split /\n([a-z])/, $input;
my @sorted_lines = sort @lines;

输入行分为三部分:

za b c
   x y
   x z

y

a b c
  x y
  x z

有没有办法根据换行符+某个字符进行拆分，但将该字符保留到下一个标记？我的意思是我希望输出只有两个标记:1) za ... 和 2) ya ...。

Answer 1

获取正则表达式 look ahead不使用 (?=...) 捕获:

my @lines = split /\n(?=[a-z])/, $input;