comment on

The first problem that I had with your code was the confusing name, $namecnt. I expected a numeric scalar for that type of name!
I changed that var name to "$names2count" to imply multiple names which will be counted - I assume in a case insensitive manner.
Added: William test case

use strict;
use warnings;

my %name_count;

my $names2cnt='David|Tom|Sam|Will|Dave|William|Thomas';

while (my $line = <DATA>)
{   
   next unless ($line =~ /\S/); #skip blank lines
   my $name = (split (":",$line))[2];
   
   $name_count{$1}++ if $names2cnt =~ /\b($name)\b/i;
}

foreach my $name (sort keys %name_count)
{
   print "$name => $name_count{$name}\n";
}

=prints:
Dave => 1
Will => 3  #allows Will and WILL and WiLL spellings
William => 1
=cut

__DATA__
1:NAME:Bob:Bobville:Phone

2:NAME:Dave:Davis:Phone
3:NAME:Will:Willard:Phone
4:NAME:Todd:Toadlane:Phone
5:NAME:WILL:Street:Phone
6:NAME:WiLL:Street2:phone2
7:NAME:WilliaM:xyz:1234
[download]

Update: I'm not sure that this \b stuff in the regex is necessary. I put some obvious test cases into the code, but not all possible test cases.

In reply to Re^5: Word Count and Match by Marshall
in thread Word Count and Match by PilotinControl

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Do you know where your variables are?
	PerlMonks