совпадение слов в регулярном выражении, но только если первая буква в верхнем регистре

Question

У меня есть динамически построен великоватый регулярное выражение, например, укоротить пример текста

my $regex = qr/(daisy|john|fred|june)/is; 

my $test = 'Later John said blah and JOHN said ignore john .....'; 

while($test =~ /($regex)/g) { 
    warn $1; 
} 

# Shows all 3 matches 

Я хотел бы регулярное выражение, чтобы соответствовать каждому вхождение в «Джона» ИЛИ «JOHN» и т. Д., Но НЕ, если первая буква является строчной буквой, например «john» не должна совпадать.

Я мог бы повторить слова регулярных выражений при строительстве, как

/(Daisy|DAISY|John|JOHN|Fred|FRED....)/ 

Но есть какой-то интересный способ не нуждаясь, чтобы сделать это, и регулярное выражение только выдастся если первая буква заглавная?

Я мог бы выполнить 2-й чек вне регулярного выражения после нечувствительного к регистру совпадения в качестве возможного решения и просто игнорировать его, если совпадение! ~/[AZ]/или что-то в этом роде, но мне интересно узнать, есть ли способ внутри одного регулярного выражения добавить дополнительное условие?

Answer 1

Добавить взгляд вперед для первой буквы будучи заглавными буквами:

my $regex = qr/(?=[A-Z])(?i)(daisy|john|fred|june)/s 

Используйте случай нечувствительным флаг только после того, как внешний вид вперед.

Answer 2

Вы можете использовать регистрозависимости чера группу (с (?i:...|...)) и требуете первой буквы быть прописной один с (?=\p{Lu}) опережающего просмотром, где \p{Lu} соответствует заглавной букве (таким образом, требуя, чтобы персонаж сразу справа должен быть прописные буквы, не потребляя ее):

#!/usr/bin/perl 
use strict; 
use warnings; 
use feature 'say'; 

my $regex = qr/(?=\p{Lu})(?i:daisy|john|fred|june)/; 

my $test = 'Later John said blah and JOHN said ignore john .....'; 

while($test =~ /($regex)/g) { 
    say $1; 
} 

Смотрите online demo