Octavian Rasnita wrote at Sun, 09 Jun 2002 08:42:34 +0200:
> Hi all,
>
> I want to check if in a string there are more than 3 capital letters. I've tried
>using:
>
> if ($string=~ /[A-Z]{3,}/) {
> ....
> }
> }
> This match at least 3 capitals only if they are one after another. I want to check
>if the string
> contains at least 3 capitals, doesn't matter how are they positioned.
David has shown you one way.
David's way becomes a little bit difficult
if you'd want to look for 100 or so uppercase letters.
2 Another possibility is:
my @uppers = $string =~ /([A-Z])/g;
if (@uppers >= 3) {
...
}
or quite more beautiful (but is only possibible for characters:)
if ($string =~ tr/A-Z// >= 3) {
...
}
Best Wishes,
Janek
PS: BTW. This topic isn't really a cgi topic.
It should be better posted in perl.beginners.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
