Help for this page

Select Code to Download


  1. or download this
    my %stopwords = map { $_ => undef } @stopwords;
$/=" ";
...
  chomp;
  push @lessWords, $_ unless exists $stopwords{$_};
}
  2. or download this
    my %stopwords = map { $_ => undef } @stopwords;
$/=" ";
@lessWords = grep( exists $stopwords{$_},  map {chomp; $_} <> )