I am using the following example from Lingua::StopWords:
How do I get it to use my $document, remove stopwords and print the results to a file? See my code here:
I tried these variations:
print join ' ', grep { !$stopwords->{$_} } TEST;
print TEST join ' ', grep { !$stopwords->{$_} } @words;
Basically, how do I read in a document, remove the stop words and then write the result to a new file?
Code:
use Lingua::StopWords qw( getStopWords );
my $stopwords = getStopWords('en');
my @words = qw( i am the walrus goo goo g'joob );
# prints "walrus goo goo g'joob"
print join ' ', grep { !$stopwords->{$_} } @words;
How do I get it to use my $document, remove stopwords and print the results to a file? See my code here:
Code:
open(FILESOURCE, "sample.txt") or die("Unable to open requested file.");
my $document = <FILESOURCE>;
close (FILESOURCE);
open(TEST, "results_stopwords.txt") or die("Unable to open requested file.");
use Lingua::StopWords qw( getStopWords );
my $stopwords = getStopWords('en');
print join ' ', grep { !$stopwords->{$_} } $document;
I tried these variations:
print join ' ', grep { !$stopwords->{$_} } TEST;
print TEST join ' ', grep { !$stopwords->{$_} } @words;
Basically, how do I read in a document, remove the stop words and then write the result to a new file?