[Israel.pm] segmentation fault in regex

Peter Gordon peter at pg-consultants.com
Sun Mar 12 05:27:28 PST 2006


On Sun, 2006-03-12 at 15:13 +0200, Levenglick Dov-RM07994 wrote:
> I would suggest removing the comments in two stages:
> s#//(.*)\n##sg;  # removes single line comments (//...)
> s#/\*(.*)\*/##sg # removes multiple line comments (/*...*/)

s#/\*(.*)\*/##sg 

will delete too much.

This is a bit better
s#/\*(.*?)\*/##sg

Peter

>  
> Best Regards,
> Dov Levenglick
> DSP SoC System and App

> -- 
> Peter Gordon
> Phone: +972 544 438029
> Email: peter at pg-consultants.com
> Web: www.pg-consultants.com
> lications 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 Yossi.Itzkovich at ecitele.com
> Sent: Sunday, March 12, 2006 2:53 PM
> To: Perl in Israel
> Subject: Re: [Israel.pm] segmentation fault in regex
> 
> Hi,
> Thanks Eli && Shlomi for your responses.
> 
> The complex regex was originally taken from perldoc FAQ how to remove C/C++
> comments. May be I modified it a little (it was 2 years ago, so I don't
> remember).
> 
> I am ready to simplify it, as long as it does what it has (no more , no
> less)
> 
> 
> 
> 
>                                                                            
>              Eli Billauer                                                  
>              <eli at billauer.co.                                             
>              il>                                                        To 
>              Sent by:                  Perl in Israel <perl at perl.org.il>   
>              perl-bounces at perl                                          cc 
>              .org.il                                                       
>                                                                    Subject 
>                                        Re: [Israel.pm] segmentation fault  
>              12/03/2006 14:49          in regex                            
>                                                                            
>                                                                            
>              Please respond to                                             
>               Perl in Israel                                               
>              <perl at perl.org.il                                             
>                      >                                                     
>                                                                            
>                                                                            
> 
> 
> 
> 
> 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
> 
> 
> _______________________________________________
> Perl mailing list
> Perl at perl.org.il
> http://perl.org.il/mailman/listinfo/perl
> _______________________________________________
> Perl mailing list
> Perl at perl.org.il
> http://perl.org.il/mailman/listinfo/perl
> 
> 





More information about the Perl mailing list