使用我拥有的Text::Ngram
my $c = ngram_counts($text, 3);
my %ct = %($c);这不起作用(Scalar found where operator expected)。我认为这既不知道我在做什么(仍然不太擅长使用Perl),又不清楚我从Text::Ngram得到的输出到底是什么。帮助?我只想看看生成的n-gram:
my @keys = sort {$ct{$a} cmp $ct{$b} } keys %ct;
foreach my $k (@keys) {
print "$k: $ct{$k}\n"
}编辑:我犯了愚蠢的错误,谢谢大家。
发布于 2011-07-23 02:24:40
使用大括号取消对散列引用的引用:
my %ct = %{ $ct }; # %$ct would also work而且,您可能希望使用<=>来进行数值排序,而不是使用ASCII码排序cmp。
发布于 2011-07-23 02:23:02
使用大括号:
my %ct = %{ $c };发布于 2011-07-23 02:41:30
没有必要复制到另一个散列中,只需使用引用即可。
my $c = ngram_counts($text, 3);
my @keys = sort {$c->{$a} <=> $c->{$b} } keys %$c;
foreach my $k (@keys) {
print "$k: $c->{$k}\n"
}有关处理引用的一些易于记忆的规则,请参阅http://perlmonks.org/?node=References+quick+reference。
https://stackoverflow.com/questions/6794344
复制相似问题