Question

How do I print $stopwords? It seems to be a string ($) but when I print it I get: “HASH(0x8B694)” with the memory address changing on each run.

I am using Lingua::StopWords and I simply want to print the stop words that it’s using so I know for sure what stop words are there. I would like to print these two a file.

Do I need to deference the $stopwords some how?

Here is the code:

use Lingua::StopWords qw( getStopWords );

open(TEST, ">results_stopwords.txt") or die("Unable to open requested file.");
my $stopwords = getStopWords('en');

print $stopwords;

I’ve tried:

my @temp = $stopwords;
print "@temp";

But that doesn’t work. Help!

Last note: I know there is a list of stop words for Lingua::StopWords, but I am using the (en) and I just want to make absolute sure what stop words I am using, so that is why I want to print it and ideally I want to print it to a file which the file part I should already know how to do.

Answer 1

to dereference a hashref :

%hash = %{$hashref};  # makes a copy

so to iterate over keys values

while(($key,$value)=each%{$hashref}){
    print "$key => $value\n";
}

or (less efficient but didactic purpose)

for $key (keys %{$hashref}){
    print "$key => $hashref->{$key}\n";
}