Problems with specific search in string 1

[thenewguy111]

Hi All,

I'm having a problem with a regex to look for repeated characters in a string.

there is about 10 000 00 different strings and i need to know how to look for any character that appears 3 times in the string.

EX:

my $a = 'abcabca';

something like

if (char appears 3 times in $a)
{
# do something
}

wihout actually specifying which character to look for.

I hope im clear in what im looking for, if not, please let me know.

Thank you very much,

P.

 

[raider2001]

One way is to split the string into characters and count how many of each one. Here's an example:

@strings = ("abcabc", "abcdabcd", "abcabcc", "abcabcb", "abc", "aaa", "abbccbcaaacc");
foreach $string (@strings) {
    @chars = split //, $string; # split into characters
    undef(%num);
    foreach $char (@chars) {
        $num{$char}++; # add to count of character
    }
    foreach $repeat (keys %num) {
        print "repeat '$repeat' in $string\n" if ($num{$repeat} >= 3);
    }
}

 

[duncdude]

[raider2001] - i like that! good solution!!!


Kind Regards
Duncan

 

[thenewguy111]

Thanks raider2001.

your rock !