Re: Re: Regex Strikes again!

Your code is very good.. thank you.. and if i had it a few weaks earlier it migtht have been a very good option for my program

But the other regex works just fine and catches all the cases! And is simply "changable" in order to serve to other languages as PLSQL, ProC, etc..

The only problem that i have is how to catch the number of lines!!

I´ve made some code in order to compare two files and it works "almost"* fine but in larger files it might be a bit slow!!

I said that almost works fine because it "flips over" when he finds lines like this /*********************/ !!! And i don´t have any idea why!!!

Maybe you can help me out to figurate out what is the problem!!!

foreach my $line (@fich){
  $i++;
  $flag=0;
  foreach $comm (@com){
        if( (($line eq $comm) || (index($line, $comm) > -1)) && ($flag
+==0)){
        print"Linha $i: $comm";
        $flag=1;
        print "Flag1: $flag\n";
       }
  }
}
[download]

The two arrays contain two files!!The @com contains the file with the extracted comments and the @fich contains the content of the source code!!

Thank you very much!!

Nuno

Comment on Re: Re: Regex Strikes again! Download Code

Replies are listed 'Best First'.

Re: Re: Re: Regex Strikes again!
by johndageek (Hermit) on Jul 16, 2003 at 19:42 UTC

hth
John

#!/usr/bin/perl
$file="theinputfile";
undef $/; #In order to read the whole file at once
open(F,"$file");
$f = <F>;
my @matches =  $f =~
m{
     ( /\* .*? \*/) | ( \/\/[^\n]*)
     | " (?: [^"\\]* | \\. )* "
     | ' (?: [^'\\]* | \\. )* '
     | . [^/"']*
   }xgs;
@matches = grep {defined $_} @matches; #get rid of undefs
my $linenum = 1;

foreach my $match (@matches) {
#        $slurpedfile =~ /\Q$match/;
        $f =~ /\Q$match/;
        my $before = $`;
#        $slurpedfile = $';
        $f = $';
        my $matched = $&;
        $linenum += $before =~ tr/\n/\n/;
        print "Line $linenum\t$match\n";
        $linenum += $match =~ tr/\n/\n/;
}
[download]

[reply]
[d/l]


laziness, impatience, and hubris
	PerlMonks