Re: capture strings with two non-identical capital letters in a row

[Andrea Holstein]

> 
> my $string1 = "ABCD";
> my $string2 = "AbCd";
> my $string3 = "AABcD";
> 
> Get $string1, discard $string2 and $string2.
> 
>  ... 
>         but ABBC displays as valid!
> 
> Wags ;)

What's the difference between "AABcD" and "ABBC" ?!

However, I wrote a little script with two different possibilities:

my @strings = qw/ ABCD AbCd AABcD ABBC /;
foreach (@strings) {
        print;

        # find 2 or 3 different capitals in a row
        / ([[:upper:]])
          (?!\1) ([[:upper:]])
          (?!\1|\2) ([[:upper:]]) /x ? print " valid, " : print " invalid, ";

        # find 2 or 3 different capitals in row, where
        # same capitals count as one
        s/ ([[:upper:]])\1* /\1/gx;
        / [[:upper:]]{2,3} /x ? print " valid($_)\n" : print " invalid($_)\n";
}

It produces the output:

ABCD valid,  valid(ABCD)
AbCd invalid,  invalid(AbCd)
AABcD invalid,  valid(ABcD)
ABBC invalid,  valid(ABC)

Hope, it helps.

Best Wishes,
Andrea

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]