Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Grep reutrn the occurance of a pattern

by moklevat (Priest)
on Mar 13, 2008 at 13:56 UTC ( #673967=note: print w/replies, xml ) Need Help??

in reply to Grep reutrn the occurance of a pattern

To get the number of matches you evaluate grep in scalar context. Here:

#!/usr/bin/perl use strict; use warnings; my @items = qw/yes no no no yes yes no no/; my $number_of_matches = grep(/yes/,@items); print "$number_of_matches\n";

Prints 3.

Update: Noticed that I left out @items, and I see I am not alone in my confusion about exactly what it was the OP wanted.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://673967]
[Corion]: Heh. The JSON link for Strawberry releases gives me the idea that I should provide an RSS proxy so people can get notified when a new release is there...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (10)
As of 2017-02-27 08:21 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (377 votes). Check out past polls.