Сделайте следующую запись группы захвата, чтобы что-то означало Perl

Question

В следующем случае, почему условие оценивается как false?

$_ = "aa11bb"; 
if(/(.)\111/){ 
    print "It matched!\n"; 
} 

ли \11 или \111 имеют особое значение, что Perl не может "видеть" \1?

Answer 1

На самом деле Perl интерпретирует \111 как восьмеричный элемент, который не найден в вашей строке . Он учитывал бы только две или более цифр обратных ссылок, если найдено такое количество . Чтобы избежать двусмысленности, используйте \g или \g{}. Цитирование Документов (perlre - Capture Groups):

Параметр \ г и \ к нотации были введены в Perl 5.10.0. До этого не были названы и относительными пронумерованными группами захвата. Абсолютные нумерованные группы упоминались с использованием \ 1, \ 2 и т. Д., И эта нотация все еще принимается (и, вероятно, всегда будет). Но это приводит к некоторым двусмысленностям, если есть более 9 групп захвата, так как \ 10 может означать либо десятую группу захвата , либо символ, порядковый номер которого равен восьмеричному 010 (обратное пространство в ASCII). Perl разрешает эту двусмысленность, интерпретируя \ 10 как обратную ссылку , только если перед ней открылось не менее 10 левых круглых скобок. Аналогично, \ 11 - , только если в нем открылось не менее 11 левых круглых скобок. И так далее. От 1 до 9 всегда интерпретируются как обратные ссылки. Существует несколько примеров, иллюстрирующих эти опасности. Вы можете избежать двусмысленности , всегда используя \ g {} или \ g, если вы имеете в виду группы захвата; и для восьмеричные константы всегда используют \ o {} или для \ 077 и ниже, используя 3 цифры , заполненные ведущими нулями, поскольку начальный нуль подразумевает восьмеричную константу.

Answer 2

Это лечения \111 как один элемент, потому что нет ничего отделения \1 от 11. Если вы используете модификатор /x, чтобы интервал можно удалить двусмысленность:

if(/(.)\1 11/x) { ...