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
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.
In reply to Re^2: Comparing strings works in Windows but not Linux
by Anonymous Monk
in thread Comparing strings works in Windows but not Linux
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |