英文中单词之间直接有空格，而且Perl利用正则直接能匹配上，同时perl考虑可以用hash表存储，而C++ 可以考虑用STL map存取。随便在intermediate perl教程上copy了一段文字，下面是perl 的简单实现方法： my @data = <DATA>; my $data = join('', @data); my %words; while ($data =~ m#\