Re: tough regex problem

How about this?

     return grep(/./s, $$bufref =~ m#(.*?)(?:$sep|\z)#gs) if wantarray;

Josh

On Sep 16, 2004, at 11:05 PM, Uri Guttman wrote:

>
> in file::slurp i currently split the file into lines (or records based
> on $/) using this code:
>
> 	return split( m|(?<=$sep)|, ${$buf_ref} ) if wantarray ;
>
> where $sep is set from $/.
>
> that works correctly and is fast. but it has one flaw, it can't do
> paragraph mode since lookbehind can't handle variable width regexes as
> \n\n+ is. so i am looking for an m// solution that properly splits a
> buffer into records. it is not as easy as it seems. it has to behave
> exactly like the split does. there are several corner cases such as an
> empty file and a partial line ending a file. even a normal file of 
> lines
> is tricky as you don't want to return an bogus empty line after the 
> last
> real line. here are a few broken attempts to help you avoid pitfalls:
>
> 	/(.*?$sep|.+)/sg	# doesn't handle an empty file
> 	/.*?(?:$sep|\z)/gs 	# adds a bogus empty line at the end
>
> i already passed this problem to a top regex person and he sent me the
> second one above (obviously untested! :).
>
> so fame, glory and an acknowledgement in the new release all go to the
> valiant warrior who solves this.
>
> let the fl^Wgames begin!
>
> uri
>
> -- 
> Uri Guttman  ------  [email protected]  -------- 
> http://www.stemsystems.com
> --Perl Consulting, Stem Development, Systems Architecture, Design and 
> Coding-
> Search or Offer Perl Jobs  ----------------------------  
> http://jobs.perl.org