string - perlを使用して文字列内の大文字を数える

Question

perlを使用して文字列内の大文字の数を数えたい。

例：「EeAEzzKUwUHZws」という単語に含まれる大文字の数を知る必要があります。

score 15 · Accepted Answer

Unicodeに注意してください。ストレートのAZは、アクセント付きの大文字など、他の文字には実際には移植できません。これらも処理する必要がある場合は、次を試してください。

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

score 9 · Accepted Answer

演算子を使用しtrます：

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

これはよくある質問であり、trオペレーターは通常、他の手法よりも優れています。

score 2 · Accepted Answer

2

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

于 2011-07-11T15:49:53.817 に答える

score 0 · Accepted Answer

ワンライナー方式は次のとおりです。

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

これはStuartWattの回答に基づいていますが、ysthがコメントに投稿したヒントに従ってワンライナーに変更されています。

4 に答える 4