Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Count of Repeated Characters

by karlgoethebier (Abbot)
on Apr 27, 2015 at 12:14 UTC ( [id://1124858]=note: print w/replies, xml ) Need Help??


in reply to Count of Repeated Characters

"...I need a count of 'aa' in a string."

If you only want to count the occurance of 'aa' (only two letters - you wrote 'aa') try this:

print scalar grep {$_ eq 'aa'} split /[^a]/, 'dftaatzaaadfaa';

This one counts at two or more occurances of a:

print scalar grep {/aa/} split /[^a]/, 'dftaatzaaadfaa';

Please see also scalar, grep, split and perlretut

Update: Fixed typos

Update 2: Yes, i know - some might say this is yet another "misuse". But it works:

karls-mac-mini:monks karl$ perl -MData::Dump -E 'dd split /[^a]/, qq( +dftaatzaaadfaa)'; ("", "", "", "aa", "", "aaa", "", "aa") karls-mac-mini:monks karl$ perl -E 'say scalar grep {$_ eq 'aa'} split + /[^a]/, qq(dftaatzaaadfaa)'; 2 karls-mac-mini:monks karl$ perl -E 'say scalar grep {/aa/} split /[^a] +/, qq(dftaatzaaadfaa)'; 3

Regards, Karl

«The Crux of the Biscuit is the Apostrophe»

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1124858]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others studying the Monastery: (6)
As of 2024-03-29 01:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found