9

Задача из книжки. Написать регулярку, которая проверяет соответствие строковой переменной правилу:

  1. есть хотя бы одна буква в верхнем регистре
  2. есть хотя бы одна буква в нижнем регистре
  3. эти 2 символа идут подряд, порядок не имеет значения

Для простоты, считаем, что строки не содержат переводов строк.

Я написал что-то такое: /[a-z]*[A-Z]+[a-z]*/ или /[a-z]*[A-Z]+[a-z]+/

Предлагается потестить на строках типа "fred", "Fred" и "frEd". Я нашел одно слово, с которым данный шаблон не совпадает, это "freD". Как обобщить регулярку на все возможные строки?

Ответ в книге про перл еще хуже, чем мое решение.

12
  • "не состоящее полностью из них" значит, что в слове должна быть хотя бы одна строчная буква? или имеется ввиду, что в строке должен быть любой символ, кроме заглавной буквы и хотя бы одна заглавная буква? 21 апр 2016 в 9:19
  • И где искать просто что где то в переменной есть и маленькие и большие и надо ли выделять то что нашел. А то ведь можно забежать вперед проверить на маленькие потом на большие (?=.*?[a-z]+).*?[A-Z]+
    – Mike
    21 апр 2016 в 9:25
  • так же интересует, каким образом должны обрабатываться много-строчные строки (уж простите за тавтологию) 21 апр 2016 в 9:29
  • Строки рассматриваются однострочные. Да, верно: в строке должна быть хотя бы одна строчная буква и хотя бы одна заглавная. Иначе строка отвергается.
    – typemoon
    21 апр 2016 в 9:30
  • @typemoon Значит приведенное мной в комментарии подходит
    – Mike
    21 апр 2016 в 9:31

4 ответа 4

3
/([a-z][A-Z])|([A-Z][a-z])/

Разве это не в точности соответствует поставленному условию?

foreach (qw/fred FRED fRed Fred freD 1234/) {
    if (/([a-z][A-Z])|([A-Z][a-z])/) {
        print "$_ - ok\n";
    } else {
        print "$_ - bad\n";
    }
}

вывод:

fred - bad
FRED - bad
fRed - ok
Fred - ok
freD - ok
1234 - bad

П.С. Круглые скобки в регулярке - необязательны, но я предпочитаю их ставить в такой ситуации.

8
  • интересно какой результат должен быть у fREd?
    – Grundy
    21 апр 2016 в 14:11
  • @Grundy 1) есть маленькая буква 2) есть большая 3) они идут подряд. Все условия соблюдены - ОК.
    – andy.37
    21 апр 2016 в 14:12
  • да, не проверил, думал он парами будет проверять :)
    – Grundy
    21 апр 2016 в 14:14
  • 1234Fred ? $%^Fr$&^ ?
    – ReinRaus
    22 апр 2016 в 6:38
  • @ReinRaus В условии не сказано, что строка должна состоять только из буквенных символов.
    – dionys
    22 апр 2016 в 7:53
2

Если слово начинается с больших - ищем маленькую, если с маленьких - большую

\b([A-Z]+[a-z]|[a-z]+[A-Z])[A-Za-z]*\b

демо

3
  • а не поделитесь, за что минусуете?
    – splash58
    21 апр 2016 в 18:27
  • Хз. На текущий момент единственный правильный ответ )
    – ReinRaus
    22 апр 2016 в 6:39
  • ну ладно, может еще откликнется...
    – splash58
    22 апр 2016 в 7:23
1

Как насчет [^A-Z]+[A-Z]+|[A-Z]+[^A-Z]+?

6
  • Такая регулярка будет считать строками и наборы символов, содержащие цифры. Вряд ли это допустимо по условию задачи.
    – typemoon
    21 апр 2016 в 9:27
  • [^A-Z]+ Если я не ошибаюсь, строка обязана начинаться с какого-то символа, не являющегося заглавной буквой. Но тогда строка Fred не совпадет с шаблоном.
    – typemoon
    21 апр 2016 в 9:29
  • Вроде как соответствует условию задачи. "ищет строки, в которых есть заглавные буквы". В строке, насколько я понимаю, могут быть любые символы.
    – jekaby
    21 апр 2016 в 9:29
  • Fred, freD, fRed - совпадает. FRED, fred - нет.
    – kmv
    21 апр 2016 в 9:31
  • тут, по большому счету, все зависит от того, могут ли по условию задачи встретится символы, отличные от [a-zA-Z], и от того, как их нужно обрабатывать. туда же догонкой - вопрос про то, а нужно ли искать буквы, отличные от букв латинского алфавита? 21 апр 2016 в 9:34
0

Можно упростить и регулярку и само решение:

sub check_string {
 ($_[0]=~/([a-z]?[A-Z][a-z]?)/ and length $1 > 1) ? 1 : 0;
}

print check_string($_) for qw/ fREd fRed Fred FRED freD 88a9 /;

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.