[PERL] Hoofdletters tellen

[Klaus_1250]

Ik moet in een string hoofdletters tellen. Op zich niet zo moeilijk dacht ik:

code:

$testCapitals = ($test =~ tr/A-Z//);

Maar helaas, dat werkt niet goed met Unicode.
Dat is eigenlijk de enigste goede (niet dus) manier die ik weet. Met Google kom ik ook niet verder.
Iemand anders ideeen?

[ Voor 28% gewijzigd door Klaus_1250 op 19-06-2003 12:24 ]

[Klaus_1250]

Found it (I think). Als iemand iets beters weet als:

code:

foreach($test =~ /[[:upper:]]/g){$testCapitals++;}

hoor ik het graag...

[Soultaker]

Dat is een prima oplossing, al is 't misschien een beetje zonde om hier een reguliere expressie voor te gebruiken. Je zou ook per karakter POSIX::isupper (of gewoon /[[:upper:]]/) kunnen toepassen; je hoeft dan geen reguliere expressies te compileren en uit te voeren, en je string blijft ongewijzigd. Uiteindelijk maakt het allemaal weinig uit, natuurlijk.