使用 Perl 计算文本中每个单词的字母

Question

我正在尝试用 Perl 编写一个程序，它应该返回文件中所有单词的频率以及文件中每个单词的长度（不是所有字符的总和！），以从西班牙语文本（不是如果您不知道齐普夫曲线是什么，那就很重要了）。现在我的问题是：我可以完成第一部分，并且获得所有单词的频率，但我不知道如何获得每个单词的长度！ :( 我知道命令行 $word_length = length($words) 但在尝试更改代码后，我真的不知道应该在哪里包含它以及如何计算每个单词的长度。

这就是我的代码的样子，直到知道：

#!/usr/bin/perl
use strict;
use warnings;

my %count_of;
while (my $line = <>) { #read from file or STDIN
  foreach my $word (split /\s+/gi, $line){
     $count_of{$word}++;
  }
}
print "All words and their counts: \n";
for my $word (sort keys %count_of) {
  print "$word: $count_of{$word}\n";
}
__END__

我希望有人有任何建议！

Answer 1

如果你想存储单词的长度，你可以使用哈希的哈希。

while (my $line = <>) {
    foreach my $word (split /\s+/, $line) {
        $count_of{$word}{word_count}++;
        $count_of{$word}{word_length} = length($word);
    }
}

print "All words and their counts and length: \n";
for my $word (sort keys %count_of) {
    print "$word: $count_of{$word}{word_count} ";
    print "Length of the word:$count_of{$word}{word_length}\n";
}

Answer 2

这将在计数旁边打印长度：

  print "$word: $count_of{$word} ", length($word), "\n";

Answer 3

仅供您参考 - 另一种可能性

length length($word)

可能是：

$word =~ s/(\w)/$1/g

它不像 toolic 那样清晰的解决方案，但可以为您提供对此问题的其他看法（TIMTOWTDI :))

小解释：

\w 和 g修饰符匹配 $word 中的每个字母

$1 防止用 s/// 覆盖原始 $word

s/// 返回 $word 中的字母数（与 \w 匹配）