我如何计算数组中特定字母的数量，Perl？

Question

我有一个只有字母的数组，没有数字。我想计算特定字母显示的次数。我不想使用哈希，我需要保留列表的顺序。

use strict;
use warnings;

my %counts;
$counts{$_}++ for @array;
print "$counts\n";

Answer 1

使用grep来执行此操作

my @ar = qw(abc cde fgh 123 abc);
my $count = grep{ /ab/} @ar;
print $count;

或者使用foreach

my @ar = qw(abc cde fgh 123 abc);
my $m;
$m+= /ab/,foreach (@ar);
print $m;

遇到匹配时$m会增加。

Answer 2

您可以在CPAN上考虑Text::CountString模块。