Đếm chữ hoa trong chuỗi bằng cách sử dụng perl

Question

Tôi muốn đếm số chữ cái viết hoa trong một chuỗi sử dụng perl.

Ví dụ: Tôi cần biết có bao nhiêu ký tự chữ hoa trong từ "EeAEzzKUwUHZws" chứa.

Answer 1

Hãy coi chừng Unicode, vì điều A-Z thẳng không thực sự di động cho các ký tự khác, chẳng hạn như chữ in hoa có dấu. nếu bạn cần phải xử lý những quá, hãy thử:

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

Answer 2

Sử dụng tr điều hành:

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

Đây là một câu hỏi phổ biến và tr hành usually outperforms other techniques.

Answer 3

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

Answer 4

Phương pháp one-liner là:

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

này được dựa tắt Stuart Watt's answer nhưng điều chỉnh theo công tip that ysth posted trong các ý kiến ​​để làm cho nó một có thể.