有没有更好的方法来计算字符串中char的出现？

计算字符串中字符的出现可以使用Perl中的一行(与4行相比)来执行.不需要sub(尽管在sub中封装功能没有任何问题).来自perlfaq4"如何计算字符串中子字符串的出现次数？"

use warnings;
use strict;

my $str = "ru8xysyyyyyyysss6s5s";
my $char = "y";
my $count = () = $str =~ /\Q$char/g;
print "count<$count> of <$char> in <$str>\n";

如果角色不变,则最好:

my $count = $str =~ tr/y//;

如果角色是可变的,我会使用以下内容:

my $count = length( $str =~ s/[^\Q$char\E]//rg );

如果我想要与早于5.14的Perl版本兼容(因为它更慢并且使用更多内存),我只使用以下内容:

my $count = () = $str =~ /\Q$char/g;

以下不使用内存,但可能有点慢:

my $count = 0;
++$count while $str =~ /\Q$char/g;