Re: non-greedy piecewise matching

in reply to non-greedy piecewise matching

The non-greedy version of "+" is "+?". (perlreref).

"An undefined problem has an infinite number of solutions." - Robert A. Humphrey "If you're not part of the solution, you're part of the precipitate." - Henry J. Tillman

Comment on Re: non-greedy piecewise matching

Replies are listed 'Best First'.
Re^2: non-greedy piecewise matching by mifflin (Curate) on Aug 02, 2007 at 17:24 UTC
thanks, that worked... `> cat x my $data = 'jlasflsf.xmljlasjlkjlasjflsdf.xmlklajlajlsdfjkl.xml'; while (pos $data < length $data) { if ( $data =~ m{ \G ( .+? \. xml) }gcxms ) { print "$1\n"; } } > perl x jlasflsf.xml jlasjlkjlasjflsdf.xml klajlajlsdfjkl.xml` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: non-greedy piecewise matching
by mifflin (Curate) on Aug 02, 2007 at 17:24 UTC

> cat x
my $data = 'jlasflsf.xmljlasjlkjlasjflsdf.xmlklajlajlsdfjkl.xml';
while (pos $data < length $data) {
    if ( $data =~ m{ \G ( .+? \. xml) }gcxms ) {
        print "$1\n";
    }
}

> perl x
jlasflsf.xml
jlasjlkjlasjflsdf.xml
klajlajlsdfjkl.xml
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom