[Israel.pm] segmentation fault in regex

Eli Billauer eli at billauer.co.il
Sun Mar 12 04:49:08 PST 2006


This is what my Perl v5.6.1 had to say:

--------------------
$ perl regex_segfault.pl  test_file.txt
test_file.txt
Complex regular subexpression recursion limit (32766) exceeded at 
regex_segfault.pl line 7, <FILE> chunk 1.
--------------------

Your Perl probably wasn't as polite. Maybe you want to downgrade? ;)

My hunch is that you've used an excessively complicated regex to do 
something (I'm not in the mood for deciphering that expression).

Maybe tell us what you want to do, and we'll play "who's got the 
prettiest regex" on it? ;)

    Eli

Yossi.Itzkovich at ecitele.com wrote:

>OK, let's try.
>
>The file is at ftp://ftp.ecitele.com/outgoing/inf_vie.htm
>
>
>
>The code:
>#! /usr/local/bin/perl -w
>my $name=shift;
>open (FILE,$name) or die "BLA\n";
>local $/;
>my $file=<FILE>;
>print "$name\n";
>$file=~
>s~/\*[^*]*\*+([^/*][^*]*\*+)*/|//[^\n]*|(\"(\\.|[^\"\\])*\"|'(\\.|[^'\\])*'|.[^/"'\\]*)~$2~gs;
>
>Any ideas ?
>
>Yossi
>
>
>  
>

-- 
Web: http://www.billauer.co.il





More information about the Perl mailing list