Re: Less greedy pattern match

On Friday 18 April 2008 19:05, pk wrote:

> but there may (read: most certainly) be bugs,

I found a minor issue (which caused the output format to differ from
perl's
when a pattern like 

^...begin....$
^...end.......begin...$
^...end

was encountered). Here's the new script (the change is in the last line,
added "&& m==0"):


m==0 {for(i=1;i<=NF;i+=2) {printf "%s",$i};
      if (NF && !(NF%2)) {m=1} else {print""}
      next }
 
m==1 {for(i=2;i<=NF;i+=2) {printf "%s",$i};
      if (NF) {m=(NF%2)?1:0};
      if (NF>1 && m==0) print "" }


-- 
All the commands are tested with bash and GNU tools, so they may use
nonstandard features. I try to mention when something is nonstandard (if
I'm aware of that), but I may miss something. Corrections are welcome.