Grep reutrn the occurance of a pattern

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Grep reutrn the occurance of a pattern by Fletch (Bishop) on Mar 13, 2008 at 13:54 UTC
See How (Not) To Ask A Question, but (completely off the wall guess here) perhaps you want to grep over the indexen rather than the array itself? `my @array = qw( foo bar baz quux ); my @idx_of_eles_with_an_a = grep $array[ $_ ] =~ /a/, 0..$#array;` [download] The cake is a lie. The cake is a lie. The cake is a lie.	[reply] [d/l]
Re: Grep reutrn the occurance of a pattern by moklevat (Priest) on Mar 13, 2008 at 13:56 UTC
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";` [download] 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.	[reply] [d/l]
Re: Grep reutrn the occurance of a pattern by johngg (Canon) on Mar 13, 2008 at 13:59 UTC
You can count the occurances and retain the captures like this. I'm not sure what you mean by "the index of an array for a pattern" though. Perhaps you could elaborate. This `$ perl -le ' > $str = q{adasdGTsaJsdfsCFwee}; > $capsCt = @caps = $str =~ m{([A-Z]+)}; > print qq{Found: $capsCt}; > print for @caps;'` [download] produces `Found: 3 GT J CF` [download] I hope this is helpful. Cheers, JohnGG	[reply] [d/l] [select]
Re: Grep reutrn the occurance of a pattern by Narveson (Chaplain) on Mar 13, 2008 at 13:52 UTC
may be somebody can give me some hint? Please give an example: Some data that you want to search; a pattern you might search for; the output you desire.	[reply]
Re: Grep reutrn the occurance of a pattern by Pancho (Pilgrim) on Mar 13, 2008 at 14:01 UTC
This recent entry might be helpful as well... Re: How can I access the number of repititions in a regex? Pancho	[reply]
Re: Grep reutrn the occurance of a pattern by ikegami (Patriarch) on Mar 13, 2008 at 15:56 UTC
See @- and @+ `while (/.../g) { print("Matched ", substr($var, $-[0], $+[0] - $-[0]), " at pos $-[0 +]\n"); }` [download]	[reply] [d/l]
Re: Grep reutrn the occurance of a pattern by Anonymous Monk on Mar 14, 2008 at 01:19 UTC
Hi all, I am the one who ask the question in rush, Thanks all of you answer this poorly organized question. After certain period of time and read the reply, I think I prefer something like this.... `my @match = grep { $_ =~ /($pattern)/ ; $hash{$_}{$pattern} = no_of_o +ccurance_of_regex; } @inputs;` [download] So I wil get a hash with the thing I want. Does it possible in grep?	[reply] [d/l]