The code is included below:
foreach my $word (@words)
{
chomp($word);
foreach my $posWord (@positiveWords)
{
chomp($posWord);
if ( lc($word) eq $posWord)
{
$numPosWords++;
last;
}
}
foreach my $negWord (@negativeWords)
{
chomp($negWord);
if ( lc($word) eq $negWord)
{
$numNegWords++;
last;
}
}
}
The input files are lists of words, one word on each line. For example, the list of positive words would be:
good
excellent
outstanding
...etc.
The text file is a movie review file, written in paragraph form, and I have to find positive and negative words by comparing each word in the text file to the positive/negative lists. | [reply] |