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

Re: How to count substrings in an array?

by kcott (Chancellor)
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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2018-06-19 03:32 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (111 votes). Check out past polls.