in reply to Re: arabic alphabet ... how to deal with?in thread arabic alphabet ... how to deal with?
open (STOPWORDS, $ARGV) || die "Error opening the stopwords file\n"
$count = 0;
while ($word = <STOPWORDS>)
$stopword[$count] = lc($word);
open (INFILE , $ARGV) || die "Error opening the input file\n";
while ($line = <INFILE>)
@entry = split(/ /, $line);
$i = 0;
$found = 0;
$j = 0;
while (($j<=$count) && ($found==0))
if (lc($entry[$i]) eq $stopword[$j])
$found = 1;
if ($found == 0)
print "$entry[$i]\n ";
Electric eels were invented at the same time as electricity
Before electricity was invented, electric eels had to stun with gas
Results (376 votes). Check out past polls.