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

Question

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

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

Answer 1

请注意 Unicode，因为直接 AZ 的东西对于其他字符（例如带重音的大写字母）来说并不真正可移植。如果您也需要处理这些，请尝试：

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

Answer 2

使用 tr 运算符：

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

这是一个常见问题，tr 运算符通常优于其他技术。

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 的答案，但根据 提示ysth 在评论中发布了，使其成为一句俏话。