使用perl计算字符串中的大写字母

Question

我想使用perl计算字符串中大写字母的数量。

例如：我需要知道单词“EeAEzzKUwUHZws”包含多少个大写字符。

Answer 1

当心统一的，作为直A-Z的事情是不是为其他字符，如重音大写字母真的很容易携带。如果您需要太多处理这些，尝试：

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

Answer 2

使用tr操作：

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

这是一个常见的问题和tr操作usually outperforms other techniques。

Answer 3

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

Answer 4

一行程序的方法是：

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

这是基于关闭Stuart Watt's answer但根据在评论tip that ysth posted，使之成为一个被修改-衬垫。