in reply to Re: Re: regexp causes segfault
in thread regexp causes segfault

I have no idea what you mean. All this regex does is walk the string (char by char) with a 1 char buffer (the last char). When it gets a match (last char not \\ and char eq ') it gets a match and we record the position. This is hardly a regex at all!

Here it is completely C-ified - no regexes in sight. Possibly faster than the original post to boot but I can't be bothered to test.

$str = " '==\\'==' '==5==' '\\'\\'' '\\'3' '\\'' '1' '' "; my $pos = 0; my $len = length $str; my $last = ''; my $char; while ( $pos < $len ) { $char = substr $str, $pos, 1; push @pos, $pos if $char eq "'" and $last ne "\\"; $pos++; $last = $char; } for ( my $i= 0; $i <@pos; $i +=2 ) { my $begin = $pos[$i]+1; my $end = $pos[$i+1]; my $str = substr $str, $begin, ($end -$begin); print "$begin $end |$str|\n"; }

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print