Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: How to count substrings in an array?

by kcott (Canon)
on Feb 03, 2013 at 07:37 UTC ( #1016794=note: print w/replies, xml ) Need Help??

in reply to How to count substrings in an array?

You haven't really explained what you're ultimately trying to achieve here. If you put your question in terms of a concrete context, you'll probably get a better answer. Guidelines for doing this can be found here: How do I post a question effectively?

The following piece of code may do what you want or at least give you some idea of how to proceed.

$ perl -Mstrict -Mwarnings -E ' my @ary = qw{xyz xyx abc xxx def zyx}; my $sub = q{x}; my @counts = map { scalar @{[/$sub/g]} } grep { /$sub/ } @ary; say "All strings = ", scalar @ary; say "Strings with $sub in them = ", scalar @counts; say "Counts of $sub in strings containing $sub:"; say for @counts; ' All strings = 6 Strings with x in them = 4 Counts of x in strings containing x: 1 2 3 1

-- Ken

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1016794]
and the pool shimmers...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2016-12-10 03:40 GMT
Find Nodes?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:

    Results (159 votes). Check out past polls.