数数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

在标量上下文中，返回表达式为真的次数。