String Matching Using Scalar Variables. What am I doing wrong?

[alnoir]

I've looked around online and have even had a friend help me, however, for some reason I can't compare two strings.

I'm doing this at the end of the code (within the two foreach loops), above where the 'print "found"' code is located. It works when I use a string rather than the scalar variable '$word'. However, this just isn't feasible in the program that is being developed.

If anyone sees anything that I'm doing wrong, I'd really like to know. I've tried anything that I could find online, but nothing has worked.

I didn't include all of the other components, because there was too much to it and I thought it wasn't necessary. However, if anyone need any other information, I will gladly put it up.

Thank you.


#searches the file just created for keywords
#returns the url and the keywords it found in it

#first it creates an array of lines from the web content to be searched
open (CONTENT, "spider.content .txt");
@weblist;
$k = 0;
for $weblist (<CONTENT>)
{
#file is being read and the array is being built
@weblist[$k] = $weblist;
$k++;
}
close CONTENT;

#second it builds an array of the keywords being searched for
open (KEYWORDS, "keywords.txt") ;
@keywords;
$l = 0;
for $keywords (<KEYWORDS>)
{
#file is being read and the array is being built
@keywords[$l] = $keywords;
$l++;
}
close KEYWORDS;

#third it searches that array for keywords
foreach $line (@weblist)
{
foreach $word (@keywords)
{
#fourth it prints out the url and the words found in that url
if($line =~ m/($word)/i)
{
print "found";
}
}
}

[KevinADC]

Ignoring inefficiency and other problems with your code, this should work:

open (CONTENT, "spider.content.txt") or die "$!";
@weblist = <CONTENT>;
chomp(@weblist);
close CONTENT;
 
open (KEYWORDS, "keywords.txt") or die "$!";
@keywords = <KEYWORDS>;
chomp(@keywords);
close KEYWORDS;
 
foreach $line (@weblist) {
   foreach $word (@keywords) {
      if ($line =~ m/$word/i) {
         print "found";
      }
   }
}

if it never prints "found" we need to see some of the data to help more.

[alnoir]

Thank you. I got it to work now. I'm curious though. How could I make my code more efficient? I'm new to perl so I did what looked straight-forward. Thanks.