如何获取字符串数组上的字母表&；在perl中计算一些字母

例如：

输入：为我的字母计数程序测试123

输出：t=5e=3g=2n=2c=1i=1p=1u=1r=4o=3m =2 a=1 f=1 l=1 s=1 y=1

我试图编写这个问题的代码，但没有成功。这是我的代码：

#!/usr/bin/perl
use utf8;
use warnings;

$line = <STDIN>;
$len = length($line);

$count = 0;
while($count < $len){
  print "$line[$count]\n";
  $count += 1;
}

#/usr/bin/perl
使用utf8；
使用警告；
$line=；
$len=长度（$line）；
$count=0；
而（$count<$len）{
打印“$line[$count]\n”；
$count+=1；
}

所以请帮我把这个问题编码。因为我不知道如何编写这个问题的代码

#!/usr/bin/perl
use strict; use warnings;

my $input = 'Testing 123 for my letter count program.';
my %hash = ();
map { $hash{lc($_)}++ } grep /[a-zA-Z]/, split('', $input);
print "Output: ";
print "$_ = $hash{$_} " for(keys %hash);

输出：

Output: e = 3 y = 1 a = 1 r = 4 s = 1 g = 2 c = 1 n = 2 l = 1 t = 5 i = 1 p = 1 f = 1 m = 2 u = 1 o = 3

输出

t = 5
e = 3
s = 1
i = 1
n = 2
g = 2
f = 1
o = 3
r = 4
m = 2
y = 1
l = 1
c = 1
u = 1
p = 1
a = 1

---

您的程序甚至不尝试计数单个字母。Perl字符串不像在其他语言中那样是可索引的，但如果它们是可索引的，那么您的代码所要做的就是将每个字符单独打印在一行中。我确信这不是一个专业问题，您可能正在学习编程，所以我不认为仅仅给您一个解决方案就能帮助您学习任何东西。

echo“为我的字母计数程序测试123”。| perl-E'$c{$}++for（map{lc}grep/\w/，split/，）；对键%c'说“$\=$c{$}”

哦，你能解释一下代码中的“我的%seen”和“我的@order”吗？

@order

保存句子中的唯一字母，而

%seen

哈希保存每个字母的出现次数。请查收

t = 5
e = 3
s = 1
i = 1
n = 2
g = 2
f = 1
o = 3
r = 4
m = 2
y = 1
l = 1
c = 1
u = 1
p = 1
a = 1