如何解释perl AI:：Classifier:：Text:：FileLearner的（哈希引用）结果；
我正在尝试自己的perl“AI hello world”，很难理解AI:：Classifier:：Text:：FileLearner的结果 我相信我在遍历散列引用时误入歧途了如何解释perl AI:：Classifier:：Text:：FileLearner的（哈希引用）结果；,perl,artificial-intelligence,hash-of-hashes,Perl,Artificial Intelligence,Hash Of Hashes,我正在尝试自己的perl“AI hello world”，很难理解AI:：Classifier:：Text:：FileLearner的结果 我相信我在遍历散列引用时误入歧途了 #!/usr/bin/perl use utf8; use strict; use warnings; use AI::Classifier::Text::FileLearner; my $iterator = AI::Classifier::Text::FileLearner->new( training_di
#!/usr/bin/perl
use utf8;
use strict;
use warnings;
use AI::Classifier::Text::FileLearner;
my $iterator = AI::Classifier::Text::FileLearner->new( training_dir => '/home/pi/20_newsgroups/talk.politics.guns' );
print "getting ready to classify\n";
my $classifier = $iterator->classifier;
my $key;
my $value;
my %hash = %$classifier;
# traversing the hash using "each" function
while(($key, $value) = each (%hash))
{
# do stuff
$value = $hash{$key};
#print ref{$value};
if (ref{$value} eq 'HASH') {
print "$value is ANOTHER hash reference\n";
my %hash2 = %$value; #derefrence it
while(($key, $value) = each (%hash2))
{
# do stuff
$value = $hash2{$key};
print "Value of $key is $value\n";
}
} else {
print "Value of $key is $value\n";
}
} # end of 1st while
ddppddpp