正如您从下面的Perl代码片段可以看到的,我将$document
字符串(其中包含来自文本文档的文本)放入@document
阵列中。然后在打印出来之前打印出$document
。然后我阻止@document
阵列,然后将阻塞结果放入我的$stemmed_words_anon_array
字符串中,但我得到:ARRAY(0xc99b3c)
这就像存储器地址。为什么我的Perl代码导致我的字符串接收ARRAY(0xc99b3c)而不是字符串的内容?
我在做什么错?我的results_stemmed.txt
也包含里面的ARRAY(0xc99b3c)
。
# Put string of main document into an array
my @document = split(' ', $document);
# Print the $document string to check it before stemming it
print $document;
open (FILE_STEM, '>results_stemmed.txt');
use Lingua::Stem qw(stem);
my $stemmed_words_anon_array = stem(@document);
# $stemmed_words_anon_array is just receiving: ARRAY(0xcbacb) here
print FILE_STEM $stemmed_words_anon_array;
close(FILE_STEM);
print $stemmed_words_anon_array;