使用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操作员通常优于其他技术.