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

In scalar context, returns the number of times the expression was true.