number of string occurence

[lilly07]

I am trying open a text file, and find the occurence of first column string (ie) $v[0] in a separate file which contains only one column.

my code is as follows but somehow it doesn't seem to count the number of occurences in the second file.

#!/usr/bin/perl -w
 
$datafile = $ARGV[0];
print "$datafile\n";
open (LIST1, $datafile) || die "File not found\n";
 
$tags = "tags.txt";
open FILE, "$tags" or die "Couldn't open file: $!";
@test=<FILE>;
$string = join("", @test);
 
 
while(<LIST1>) {
        chomp;
        my(@v) = split(/\t/);        
        #$count = ($string =~ tr/$v[0]//);
        $count = split(/$v[0]/, $string);
        print "$v[0]\t$count\n";
}
 
close FILE;
close LIST1;
 

I know that substring search can't be done using #$count = ($string =~ tr/$v[0]//);

split also doesn't give the numbers correctly. Anything I am missing?
Thanks.

[KevinADC]

please post some sample data so we aren't trying to guess what the problem is.

[lilly07]

Thanks for your response Kelvin.

data file format (tags.txt) would be as follows:

tag1
tag2
tag1
tag4
tag6
tag2

For every line of another file which has the format as fooolows

tag1 test test2 tes3...

I want to count how many times the first column tag1 is appearing in the tag.txt file.

I tried as stated below.
1. Opened tags.txt under an array
2. $count = split(/$v[0]/, $string); to count the number of "tag1" occurence in tags.txt but it is not working.
Thanks.

[nithinpes]

You can try:

my $count = $string =~ s/\b$v[0]\b//g;
 

Word boundary(\b) is included in the pattern assuming you want to match the whole word. Else, you need not use them.