Help for this page

Select Code to Download


  1. or download this
    use Lingua::StopWords qw( getStopWords );
my $stopwords = getStopWords('en');
...
    
# prints "walrus goo goo g'joob"
print join ' ', grep { !$stopwords->{$_} } @words;
  2. or download this
    use Lingua::EN::StopWords qw(%StopWords);
  
...
  
# Print non-stopwords in @words
print join " ", grep { !$StopWords{$_} } @words;