转：用Perl实现单词计数器

Perl的文本处理能力很强,简单的几行代码就能实现单词的计数.

[@more@]

while (<>) #标准输入没有结束就循环
{
while (/(w[w-]*)/g) #单词匹配 w 表示字母或者数字,g表示匹配到结束
{
$Words{$1}++; #哈希表中保存数据 $1表示当前变量
}
}
foreach (keys %Words)
{
print "$_ $Words{$_}n"; #用foreach 输出
}
一共5行代码,加上大括号才10行.
保存为test.pl,如果你装了Perl的话,可以试一下.
测试:
C:Perl>perl test.pl
What is your name ?
My name is perl
^Z 文件结束.
输出:
Perl 1
your 1
What 1
My 1
name 2
is 2

C:Perl>

这要是用C语言,还不知道要几百行呢.

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/treeroot/archive/2004/10/09/129201.aspx

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/220284/viewspace-1024366/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/220284/viewspace-1024366/