Re: multi-line regexp

This uses a minimum capture .*? and positive look ahead (?=...) with a conditional match aaaaa|$ to do the job:

#! /usr/bin/perl
use strict;
use warnings;

my $str = "aaaaa\nbbbbb\nccccc\naaaaa\nddddd\neeeee\n" ;
my @a = $str =~ /(aaaaa.*?)(?=aaaaa|$)/gs ;

print join "\n", @a;
[download]

Prints:

aaaaa
bbbbb
ccccc

aaaaa
ddddd
eeeee
[download]

DWIM is Perl's answer to Gödel

Comment on Re: multi-line regexp Select or Download Code

Replies are listed 'Best First'.
Re^2: multi-line regexp by doctor_moron (Scribe) on Dec 21, 2005 at 20:41 UTC
And i think in this case, there is no difference between : `my @a = $str =~ /(aaaaa.?)(?=aaaaa\|$)/gs ;` [download] and `my @a = $str =~ /aaaaa.?(?=aaaaa\|$)/gs ;` [download] right ?	[reply] [d/l] [select]
Re^3: multi-line regexp by GrandFather (Saint) on Dec 21, 2005 at 21:07 UTC
Interesting. Yes you are right and I've learned something. Thank you :) DWIM is Perl's answer to Gödel	[reply]
Re^4: multi-line regexp by Anonymous Monk on Dec 21, 2005 at 22:26 UTC
As far as I know lookarounds neither "eat" up any charakters nor do they save anything so it would just make sure to break the search, save its content in one cell of the array and go ahead because of global search.	[reply]