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 ";
Went to join the gridlock to see it
Held an eclipse party
Watched a live feed
I cn"t see tge kwubosd to amswr thus
I tried to see it, but 8000 miles of rock got in the way
Wanted to see it, but they wouldn't reschedule it
Read the book instead
Results (264 votes). Check out past polls.