Исходное сообщение
"perl: затык с регэкспом" Отправлено reekoff, 30-Июн-11 00:26
Привет всем! Вроде бы простой регэксп... но результат расходится с моими ожиданиями. Первый вариант (работает как и ожидается):     #!/usr/bin/perl     $_ = 'qwerty';     if ($_ =~ /   (([^e]|t)*)    /x) { print "$1\n" }; Здесь совпадет первая альтернатива в позиции строки до "e" , то бишь, в $1 - qw. До второй дело не доходит. А здесь затык (t меняю на e):     #!/usr/bin/perl     $_ = 'qwerty';     if ($_ =~ /   (([^e]|e)*)    /x) { print "$1\n" }; Я ожидаю, что совпадет первая альтернатива в позиции строки до "e", как и в первом случае. Но совпадает вся строка - в $1 имеем qwerty. Может я затупил конкретно или не понимаю сути... в общем, не могу разобраться в поведении этого выражения. Разъясните, что к чему, если не сложно...