Re^2: can you please fix the error

you were right i was comparing the whole paragrapgh with a word and that why $word and $stopword were never equal.$word has a full paragraph. now i have fixed that (i hope). but its still not working :(

foreach $word (@data)
{
        my @arr=split(/ /,$word);
        WORD:
        foreach $a (@arr)
        {
           STOP:
           foreach $stop (@stopwords)
           {
              next WORD if $a eq $stop;
           }
        }
push(@lessWords, $word);
}

print "@lessWords\n";
[download]

plz help

Comment on Re^2: can you please fix the error Download Code

Replies are listed 'Best First'.
Re^3: can you please fix the error by Joost (Canon) on Jun 01, 2005 at 17:53 UTC
You're still pushing $word onto @lessWords regardless of the match. Simple fix: `foreach $word (@data) { my @arr=split(/ /,$word); WORD: foreach $a (@arr) { foreach $stop (@stopwords) { next WORD if $a eq $stop; } push(@lessWords, $word); } }` [download] using a hash for @stopwords would make this code simpler and faster, though. There are some examples in this thread somewhere. update: the above code is still buggy. See below for a much simpler version that should work. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re^4: can you please fix the error by zulqernain (Novice) on Jun 01, 2005 at 18:01 UTC
it did not work either ...it just put the same text many a times ...does not remove the stopwords :(	[reply]
Re^5: can you please fix the error by Joost (Canon) on Jun 01, 2005 at 18:21 UTC
Oh yes, you're right. How about this: `#!/usr/bin/perl use warnings; use strict; open( LIST, "stopwords.txt" ) or die "$!"; my %stopwords = map { chomp; $_ => 1 } <LIST>; close LIST; while (<>) { chomp; for (split) { print unless $stopwords{$_}; } }` [download] "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]