Number of grep number matches?

Question

If I do the following, it $c

becomes 1

where I hoped it would be 2

, as a compact way of counting a number grep

.

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

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

What would be the correct way to count the number of matches grep

in this case?

+3

Jasmine lognnes 12 Sep 14 at 14:41

1 answer

Dry27 · Accepted Answer · 2014-09-12T14:42:29+0000

Just assign the counter to grep,

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

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