[Israel.pm] segmentation fault in regex

Yossi.Itzkovich at ecitele.com Yossi.Itzkovich at ecitele.com
Sun Mar 12 04:06:37 PST 2006


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








More information about the Perl mailing list