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

In reply to Re: Re: Regex Strikes again! by nofernandes
in thread Regex Strikes again! by nofernandes

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.