我试图对字符串中的字符进行计数，并找到了一种简单的解决方案，使用tr运算符对单个字符进行计数。现在，我想对从a到z的每个字符执行此操作。以下解决方案不起作用，因为tr///匹配每个字符。

my @chars = ('a' .. 'z'); 
foreach my $c (@chars) 
{ 
    $count{$c} = ($text =~ tr/$c//); 
} 

请您参考如下方法:

tr 不支持变量插值(既不在搜索列表中，也不在替换列表中)。如果要使用变量，则必须使用eval():

$count{$c} = eval "\$text =~ tr/$c/$c/"; 

my %count = map { $_ => 0 } 'a' .. 'z'; 
 
for my $char (split //, $text) { 
    $count{$char}++ if defined $count{$char}; 
}