Регулярного выражения группировки в Perl

Question

У меня есть переменный содержит: No such file or directory at ./EMSautoInstall.pl line 50.

Я хочу создать переменный содержит No such file or directory и еще один содержит at ./EMSautoInstall.pl line 50.

моего REGEX является: my ($eStmnt, $lineNO) = $! =~ /(.*[^a][^t])(.*)/;

при печати как переменные, то первый содержит No such file or directory, но второй пуст.

Почему это происходит?

Answer 1

У вас действительно есть ли строка в переменной $!? Потому что обычно, at line... часть добавляется die и warn. Я подозреваю, что вы просто

$! = "No such file or directory"; 

И ваше регулярное выражение соответствует, потому что это позволяет пустой строке

/(.*[^a][^t])(.*)/ 

Т.е. второй захват также не соответствует нишу, и первым захватом может быть все, что не заканчивается at.

Для подтверждения

print $!; 

Если печать No such file or directory.

Answer 2

Вы можете использовать это:

((?:[^a]+|\Ba|a(?!t\b))+)(.*) 

идея заключается в том, чтобы соответствовать все, что не является «а» или «а», которая не является частью слова «в»

детали :

(    # first capturing group 
    (?:   # open a non capturing group 
     [^a]+  # all that is not a "a" one or more times 
     |   # OR 
     \Ba  # a "a" not preceded by a word boundary 
     |   # OR 
     a(?!t\b) # "a" not followed by "t" and a word boundary 
    )+   # repeat the non capturing group 1 or more times 
)     # close the capturing group 
(.*)    # the second capturing group 

Вы можете улучшить эту схему замены, не захватывая групп по атомной группе и кванторам по притяжательным кванторам. Цель состоит в том, чтобы запретить запись на регулярных выражения двигателя BACKTRACK позиций, но результат остается те же:

((?>[^a]++|\Ba|a(?!t\b))++)(.*+) 

Answer 3

Использование split здесь с опережением утверждением имеет больше смысла, чем регулярные выражения захватов:

my ($eStmnt, $lineNO) = split /(?=at)/, $!;