Contar letras mayúsculas en cadena usando perl

Question

Quiero contar el número de letras mayúsculas en una cadena usando perl.

Por ejemplo: Necesito saber cuántos caracteres en mayúscula contiene la palabra "EeAEzzKUwUHZws".

Answer 1

Cuidado con Unicode, y de la recta Lo A-Z no es realmente portátil para otros caracteres, como letras mayúsculas acentuadas. si usted necesita para manejar estos también, tratar:

my $result = 0; 
$result++ while($string =~ m/\p{Uppercase}/g); 

Answer 2

Use el operador tr:

$upper_case_letters = $string =~ tr/A-Z//; 

Esta es una pregunta común y el operador trusually outperforms other techniques.

Answer 3

sub count { 
    $t = shift; 
    $x = 0; 
    for(split//,$t) { 
    $x++ if m/[A-Z]/; 
    } 
    return $x; 
} 

Answer 4

El método de una sola línea es:

$count =() = $string =~ m/\p{Uppercase}/g 

Esto se basa apagado Stuart Watt's answer pero modificado de acuerdo con el tip that ysth posted en los comentarios para que sea un uno -transatlántico.