how to find substring using regex

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

Replies are listed 'Best First'.
Re: how to find substring using regex by ww (Archbishop) on Jun 22, 2011 at 18:36 UTC
Why would you expect the count to be more than one, when there's only one instance of what you're matching? UPDATE: OP has been edited without notice since this reply and the others to date. Original code (with code tags added by /me) was: `$cnt =0 $str="hi hi harshmane hi hi"; if ($str=~/([harsh]+)/g) # cf current content { $cnt++; } print $cnt;` [download] OP has been msgd that such changes without notice are unhelpful.	[reply] [d/l]
Re^2: how to find substring using regex by Argel (Prior) on Jun 23, 2011 at 16:16 UTC
I think he did the same thing in to find string. And this question is virtually the same as that one. That might also explain why he only matches once in this thread -- he probably used different data in the other one. Elda Taluta; Sarks Sark; Ark Arks My deviantART gallery	[reply]
Re: how to find substring using regex by toolic (Bishop) on Jun 22, 2011 at 17:31 UTC
Tips: Use code tags: Writeup Formatting Tips Post code that does not have syntax errors (the code you actually ran). Tell us what you expect the count to be.	[reply]
Re: how to find substring using regex by wind (Priest) on Jun 22, 2011 at 18:04 UTC
perlfaq4 - How can I count the number of occurrences of a substring within a string?	[reply]
Re: how to find substring using regex by zek152 (Pilgrim) on Jun 22, 2011 at 17:29 UTC
Code tags are your (and our) friends. Your problem is that you don't store the number of matches. The following code will fix your issue. `use warnings; use strict; my $cnt = 0; my $str = "hi hi harshmane hi hi"; $cnt = ($str =~ s/(harsh)/$1/g); print "'harsh' appears $cnt times.\n"; $cnt = ($str =~ s/(hi)/$1/g); print "'hi' appears $cnt times.\n"; #OUTPUT #'harsh' appears 1 times. #'hi' appears 4 times.` [download]	[reply] [d/l]
Re^2: how to find substring using regex by johngg (Canon) on Jun 22, 2011 at 18:16 UTC
No need for the capture and substitution by itself! `knoppix@Microknoppix:~$ perl -E ' > $str = q{hi hi harshmane hi hi}; > $cnt = () = $str =~ m{hi}g; > say $cnt;' 4 knoppix@Microknoppix:~$` [download] I hope this is of interest. Cheers, JohnGG	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.
Re: how to find substring using regex by hbm (Hermit) on Jun 22, 2011 at 17:55 UTC
Your code would increment $cnt once if the expression is true (matches one or more times). You could turn it around like this: `$cnt++ while $str=~/harsh/g;` [download] Note also that you don't need to store the matches (with parentheses) for what you are doing. And the '+' modifier in your example would match 'harsh' and 'harshhhhhhhhhh'. Is that what you meant?	[reply] [d/l]