Perl统计英文单词（没有考虑缩写和连写词）

本文主要是介绍Perl统计英文单词（没有考虑缩写和连写词），希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

英文中单词之间直接有空格，而且Perl利用正则直接能匹配上，同时perl考虑可以用hash表存储，而C++ 可以考虑用STL map存取。随便在intermediate perl教程上copy了一段文字，下面是perl 的简单实现方法：

my @data = <DATA>;
my $data = join('', @data);
my %words;
while ($data =~ m#\b(\w+)\b#smg)
{
if (not exists $words{$1})
{
$words{$1} = 1;
}
else
{
$words{$1}++;
}
}


for my $key ( sort keys %words)
{

这篇关于Perl统计英文单词（没有考虑缩写和连写词）的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---