Как проверить строку на верхний регистр?

Question

[Orbite]

Как проверить, если все символы строки в верхнем регистре?
if($str = все символы в верхнем регистре){
действие
}

Answer 1

[pcdesign]

if ($str =~ /^[ \p{Uppercase}]+$/) {
    print "ВСЕ БУКВЫ БОЛЬШИЕ r\n";
}

Answer 2

[Леонид Николаев]

if ( $str =~ /^[A-ZА-Я]+$/ )

это, конечно, если локаль подключена и все такое.

Comments

[Olgeir]

Это решение будет работать только в случае, если строка состоит только из букв. Добавляем пробел и проверка ломается.

лучше такой вариант
if(uc($str) eq $str){say "Yes";}else{say "No";}

[Леонид Николаев]

бесспорно ломается, только вот пробел не может быть в верхнем регистре. а значит это не входит в условие задачи:-) разве нет?