如何在字符串/文本文件中找到每个字母的所有出现位置？

Question

所以例如输出应该是

A有4个实例 B有0个实例 有1个C实例 。 。 Z

有9个实例

我有一个关于该做什么的一般想法，但我如何＆＃34;优化＆＃34;我的代码，所以我不必写出一切？换句话说，我喜欢帮助编写一个循环来编写所有＆＃34;有x个实例（字母）＆＃34;输出，我正在寻找一种方法来整合＆＃34; a..z＆＃34;而不是仔细查看每封信。

Answer 1

my $str = "AABBBCCCCCCCDDDDDDDDDDDDD";

my %counts;
++$counts{ uc($_) } for split //, $str;

for my $char (sort keys %counts) {
  print "There are $counts{$char} instances of $char\n";
}