[Israel.pm] segmentation fault in regex

Levenglick Dov-RM07994 Dov at freescale.com
Sun Mar 12 04:48:41 PST 2006


If that is the problem, perhaps using the (?>...) regex modifier is in place?

 
Best Regards,
Dov Levenglick
DSP SoC System and Applications Engineer,
Network and Computing Systems Group
Freescale Semiconductor Israel
Tel. +972-9-952-2804
The information contained in this email is classified as:
[ ] General Business Information
[ ] Freescale Internal Use Only
[ ] Freescale Confidential Propriety
[x] Personal Memorandum
 

-----Original Message-----
From: perl-bounces at perl.org.il [mailto:perl-bounces at perl.org.il] On Behalf Of Eli Billauer
Sent: Sunday, March 12, 2006 2:49 PM
To: Perl in Israel
Subject: Re: [Israel.pm] segmentation fault in regex

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


_______________________________________________
Perl mailing list
Perl at perl.org.il
http://perl.org.il/mailman/listinfo/perl



More information about the Perl mailing list