string - 使用Perl计算字符串中的大写字母

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

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

最佳答案

谨防Unicode，因为直接的A-Z东西对于其他字符(例如带重音符号的大写字母)而言并不真正可移植。如果您也需要处理这些，请尝试:

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

关于string - 使用Perl计算字符串中的大写字母，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/6652757/