Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: how to find substring using regex

by zek152 (Pilgrim)
on Jun 22, 2011 at 17:29 UTC ( [id://910946]=note: print w/replies, xml ) Need Help??


in reply to how to find substring using regex

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]

Replies are listed 'Best First'.
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.

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://910946]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2024-04-26 06:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found