我怎样才能得到这个打印到我的文件，而不是我的Perl程序中的屏幕？

Question

我用下面的例子Lingua::StopWords：

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; 

我如何得到它使用我$document，删除停用词并打印结果到一个文件？看到我的代码在这里：

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; 

我想这些变化：

print join ' ', grep { !$stopwords->{$_} } TEST; 


print TEST join ' ', grep { !$stopwords->{$_} } @words; 

基本上，我怎么一个文件中读取，删除停用词，然后将结果写入到一个新的文件？

Answer 1

在您的程序中，您忘记了将输入文本标记为单词。 Lingua::EN::Splitter::words的简单替代方法是将split空格上的一行代码转换为单词列表（近似）。

考虑到tchrist的评论，该程序适合用作Unix过滤器。

use strictures; 
use Lingua::StopWords qw(getStopWords); 
use Lingua::EN::Splitter qw(words); 
my $stopwords = getStopWords('en'); 
while (defined(my $line = <>)) { 
    print join ' ', grep { !$stopwords->{$_} } @{ words $line }; 
}