用perl语言编程来验证一个算法
发布网友
发布时间：2024-08-19 18:24
共1个回答
热心网友
时间：2024-08-23 14:51
$string = "an apple a day"; #定义变量 string
foreach $byte (split //, $string) { # 依次把string中的字符取出，传给 byte（空格也算一个字符的）
$seen{$byte}++; # 在散列seen中，以该字符为key的value加一（就是统计该字符累计出现次数）
}
print "unique chars are: ", sort(keys %seen), "\n";# 打出seen中获得的全部key的值。
你可以用print %seen;来看一下里面的结果就更清楚了。
总体来说，以上程序就是统计一个字符串里面一共出现了哪些字符（通过散列实现了去重，同时统计了每个字符出现的次数）
自己看这个网站
http://blog.csdn.net/didizyp/archive/2006/08/25/1118286.aspx
