轉：用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