perl – 在tr 中使用char变量

概述我正在尝试计算字符串中的字符,并找到一个使用tr运算符计算单个字符的简单解决方案.现在我想用从a到z的每个角色来做这个.以下解决方案不起作用,因为tr ///匹配每个字符. my @chars = ('a' .. 'z');foreach my $c (@chars){ $count{$c} = ($text =~ tr/$c//);} 如何在tr ///中正确使用char变量？ t 我正在尝试计算字符串中的字符,并找到一个使用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/";

总结

以上是内存溢出为你收集整理的perl – 在tr ///中使用char变量全部内容，希望文章能够帮你解决perl – 在tr ///中使用char变量所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。