Perl: туплю с регэкспом

[reekoff]

Привет всем!
Вроде бы простой регэксп... но результат расходится с моими ожиданиями.
Первый вариант (работает как и ожидается):

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

#!/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.
Может я затупил конкретно или не понимаю сути... в общем, не могу разобраться в поведении этого выражения.
Разъясните, что к чему, если не сложно...

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Charlz_Klug_]

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

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

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

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

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

[^e] - любой символ, кроме "e".

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

t - символ "t".

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

([^e]|t) - символ должен быть либо не равным "e", либо являться "t".

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

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

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

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

([^e]|e) - символ должен быть либо не "e", либо "e". То есть все символы.

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