Text comparisons

[ScarryJerry]

I am new to Perl.
I have looked at the FAQ's, online any other source I can find. I suspect this is a simple solution, but I am stuck.

I have a list of strings (function names) that I am tring to get a count of in source files. I have the function names in a list and I read the source file into antoher list. I have tried various ways of comparing them , for example

foreach $sourceLine (@SourceData)
    {
    if ($functionName =~ /$sourceLine/) {$counter++;}
    }

or

$counter = grep (/$functionName/ , @SourceData);

Either way I always get a value of 0 for the counter.

Any suggestions as to what I am doing wrong ?

TIA !

Jerry

[QM]

I think your first example is backwards. Try

foreach my $sourceLine ( @SourceData )
{
    if ( $sourceLine =~ /\b$functionName\b/ )
    {
        $counter++;
    }
}

Note that \b matches a "word boundary", which prevents matching on non-function names embedded in other "words" (including other function names). But it doesn't handle the problem where function names are mentioned in comments.

[CountZero]

A question: do you need to have the count per function or do you want to have an aggregate value (= how many times do all of the functions together appear in the source)?

In the first case you need to have some form of variable for each function-name to keep the tally (an array or --even better-- a hash will do the trick).

In the other case, you can build one big regex (all functions names joined together with | (which is "or" in a regex) and feed your source to that regex.

Warning: there can be many subtle traps and pitfalls:

• Make sure that no function is a substring of another function or you will count twice the shorter string (e.g. "print" and "printer; and if you have a function int your tally will be way off!".
• Variables who "contain" a function name will be counted as well if you're not careful (e.g. variable "lines_read" and function "read")
• ...

[Vautrin]

Do you have:

use strict;
use warnings;

at the top of your script? If you don't, try putting it in. If something is going wrong (i.e. the line you're reading in is undef), it will tell you. Also, can you post more of the script? There are a lot of possibilities for what is going wrong. For instance, if you do not have an open ("FILE", "< ./file") or die("Can't open the file $!"); and are just using open ("FILE", "< ./file"); you would always get an undef (or maybe a "") if you read in the lines.

[McMahon]

Hi Jerry...
Try two things:
First, depending on where you get $sourceLine and $functionName from, you might have invisible newlines (especially in $sourceLine) that are making your comparisons fail. The code below is probably overkill, but try doing this and see what happens:


 
foreach $sourceLine (@SourceData) {
chomp $sourceLine; 
chomp $functionName;
if ($functionName =~ /$sourceLine/) {$counter++;}
}

Also, use the Poor Man's Debugger, and stick print statements where you suspect your data:

 
foreach $sourceLine (@SourceData) {
print "$sourcfeLine\n"; 
print "$functionName\n"; 
print "\n"; 
if ($functionName =~ /$sourceLine/) {$counter++;}
}

And of course, use warnings; and use strict; hope that helps...
-Chris -Chris

[ScarryJerry]

This is what I found out was happening. The list of function names had spaces at the end of the function name

i.e. myCamelCaseName had spaces after the last 'e'
Once I removed the spaces at the end, everything worked fine.
Now I did this through a search/replace but is there something that will return the string with the trailing spaces stripped off ?

Thanks !
Jerry