perl 哈希统计输入的字符串字数

回复 收藏
要求:自定义输入一组字符串,例如 aa bb cc aa cc ,那么需要统计出各个字符串出现的次数。

#! /usr/bin/perl

my (@words, %count, $word);

chomp (@words=);

foreach $word (@words) {
  $count{$word} += 1;
}
foreach $word (keys %count) {
  print "$word was senn $count{$word} times.\n";
}
2010-11-19 11:45 举报
已邀请:

回复帖子,请先登录注册

退出全屏模式 全屏模式 回复
评分
可选评分理由: