in reply to
Re: arabic alphabet ... how to deal with?
in thread arabic alphabet ... how to deal with?
I did but still does not work ...
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 ";
0 - I'm a blankster
0 - My devices have no keyboard
0 - I use a chorded keyboard that transcends your concept of keys
26 - I need the other keys for Perl sigils!
31 - I write code in the original APL
31 - ß counts only as one letter!
∞ - I use an Optimus keyboard
ℵ1 - I reject your Latin-centric notion of letters
Results (28 votes),