计数grep匹配？

Question

如果我执行以下操作,那将$c成为1我希望它的位置2,作为计算grep匹配数量的紧凑方式.

my %h = (
    "abc" => undef,
    "abcd" => undef,
    "abcde" => undef
);

my $c = 0;
$c++ if grep {/bcd/} keys %h;
print $c;

grep在这种情况下,计算匹配数的正确方法是什么？

Answer 1

只需将计数器分配给grep,

my $c = grep {/bcd/} keys %h;

从 perldoc

在标量上下文中,返回表达式为true的次数.