perl – 在tr ///中使用char变量

发布时间：2020-12-15 23:27:56 所属栏目：大数据来源：网络整理

导读：我正在尝试计算字符串中的字符,并找到一个使用tr运算符计算单个字符的简单解决方案.现在我想用从a到z的每个角色来做这个.以下解决方案不起作用,因为tr ///匹配每个字符. my @chars = ('a' .. 'z');foreach my $c (@chars){ $count{$c} = ($text =~ tr/$c//);

我正在尝试计算字符串中的字符,并找到一个使用tr运算符计算单个字符的简单解决方案.现在我想用从a到z的每个角色来做这个.以下解决方案不起作用,因为tr ///匹配每个字符.

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

如何在tr ///中正确使用char变量？

解决方法

tr不支持变量插值(既不在SEARCHLIST也不在REPLACEMENTLIST中).你必须使用eval：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!