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

That was me, forgot I was not logged in:-)

Replies are listed 'Best First'.
Re: Re: Re: regexp causes segfault
by tachyon (Chancellor) on Mar 06, 2003 at 03:35 UTC

    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