perl split string using regex but join the delimiter to the output

Question

I have a string like:

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

Now if I split as:

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

The input line is split into three parts as:

za b c
   x y
   x z

y

a b c
  x y
  x z

Is there a way to split based on newline+somecharacter, but retain that character to the next token ? I mean I want the output to have only two tokens as: 1) za ... and 2) ya ....

Did you mean [a-z]?

choroba
– choroba

2013-04-30 07:12:26 +00:00
Commented Apr 30, 2013 at 7:12 — choroba
– choroba, Commented Apr 30, 2013 at 7:12
ah yes. Thanks. I missed the regex.

Sankar
– Sankar

2013-04-30 07:23:31 +00:00
Commented Apr 30, 2013 at 7:23 — Sankar
– Sankar, Commented Apr 30, 2013 at 7:23

stevenl · Accepted Answer · 2013-04-30 07:12:00Z

7

Get the regex to look ahead without capturing with (?=...):

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

answered Apr 30, 2013 at 7:12

stevenl

6,79828 silver badges33 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

perl split string using regex but join the delimiter to the output

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related