forum.lissyara.su

Привет всем!
Вроде бы простой регэксп... но результат расходится с моими ожиданиями.
Первый вариант (работает как и ожидается): Здесь совпадет первая альтернатива в позиции строки до "e" , то бишь, в $1 - qw. До второй дело не доходит.

А здесь затык (t меняю на e):
Я ожидаю, что совпадет первая альтернатива в позиции строки до "e", как и в первом случае.
Но совпадает вся строка - в $1 имеем qwerty.
Может я затупил конкретно или не понимаю сути... в общем, не могу разобраться в поведении этого выражения.
Разъясните, что к чему, если не сложно...

reekoff писал(а): Первый вариант (работает как и ожидается):

Код: Выделить всё

#!/usr/bin/perl
$_ = 'qwerty';
if ($_ =~ /   (([^e]|t)*)    /x) { print "$1\n" };

В моём понимании:

reekoff писал(а): А здесь затык (t меняю на e):

Код: Выделить всё

#!/usr/bin/perl
$_ = 'qwerty';
if ($_ =~ /   (([^e]|e)*)    /x) { print "$1\n" };

Поэтому и выводится вся строка. Моё мнение: регулярное выражение слишком усложнено.