Perl 中文 字频统计 (Perl 例子)

#!/usr/bin/perl
#如果在文本中使用大字符集，那么将文本保存成utf-8格式。
#并将下面的注释标志去掉，同时给后面的简体中文编码语句加注释标记
#use utf8;

#使用简体中文编码，否则拆分单个汉字会出错。
use encoding "euc-cn";

#如果不提供待统计文本，退出程序
die if $#ARGV == -1;

#打开待统计文件
open(TXT, $ARGV[0]) or die "无法打开待统计文件。/n";

#哈希表，用于存放“汉字=>频率值”对。
%frequency = ();

#读取每一行，用chomp()删除句末换行符，否则会出错。
#用split函数将字符串分割为每一个汉字。每找到一个汉字，该字频率加1。
while($string = ){
chomp($string);
foreach $character (split //, $string) {
$frequency{$character}++;
}
}

#打印统计结果。
print "字频统计结果是： /n";

while ( ($k,$v) = each %frequency ) {
print "$k => $v/n";
}

#排序后打印结果。
print "字频统计结果是（由小到大排序后）： /n";

@character = sort {$frequency{$a} <=> $frequency{$b} }( keys %frequency);
foreach $character (@character){
print "$character => $frequency{$character}/n";
}