Как обьединить два регулярных выражения?

Question

[mr_creo]

Имеем строку, надо узнать входят ли в нее оба шаблона, порядок вхождения не важен.
то есть заменить :
if ($str =~/$pattern1/g && $str =~/$pattern2/g)
на что-то подобное:
if ($str =~/$pattern1 && $pattern2/g)

Answer 1

[vaut]

Раз уж оставил ответ соберу все из комментариев:

1) заглядывания, долго работают:
/^(?=.*$pattern1)(?=.*$pattern2)/s
2) полный перебор, не добавить 3 паттерн:

/(($pattern1).*($pattern2))|(($pattern2).*($pattern1))/

3) не работает если паттерн может встречаться более одного раза:
/($pattern1|$pattern2){2}/

Comments

[mr_creo]

это или, нужно чтобы оба входили

[vaut]

mr_creo: протупил, виноват.

[vaut]

mr_creo: с грязными хаками это можно сделать, но я так понимаю вам интересен именно изящное решение.
Тогда я тоже не знаю.

[mr_creo]

есть решение /^(?=.*$pattern1)(?=.*$pattern2)/s но жрет процессор

[vaut]

mr_creo: есть еще один грязный способ:
/(($pattern1).*($pattern2))|(($pattern2).*($pattern1))/

[mr_creo]

прийдется и остановиться на этом способе, но если будет нужда найти три и больше вхождений то это уже не вариант

[Adamos]

mr_creo: возможен частный случай, когда вхождения не могут повторяться. Тогда просто регулярка с уточнением количества вхождений матчит, как надо. Независимо от того, сколько вхождений и в каком порядке имеются.

[mr_creo]

Adamos: эмн, что ?

[Adamos]

mr_creo: если у вас могут быть вхождения "мама", "мыла", "муху", но ни одно из них не может повторяться дважды, то регулярка (мама|мыла|муху){3} матчит их совместное упоминание в тексте в любом порядке.

[mr_creo]

Adamos: перестаньте мыть мух, пожалуйста!
ваш пример найдет:
мамамыламуху
мамамухумыла
...
и так далее

[Adamos]

mr_creo: естественно, к нему нужно добавить .* и прочие подробности по вкусу.
Я думал, вам нужно разъяснение, которое может быть полезным.

[vaut]

Adamos: главное скобочки:
((мама)|(мыла)|(муху)){3}

[Adamos]

vaut: Я был уверен, что разделитель | внутри скобок имеет наивысший приоритет, и никакие дополнительные скобки уже не нужны. Я чего-то не знаю?

[vaut]

Adamos: может и я ошибаюсь, нужно документацию почитать.

[mr_creo]

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

[Adamos]

mr_creo: я сказал то, что хотел сказать. Скобки у меня объединяют значение, которое должно повториться трижды. Иначе, если я правильно знаю приоритеты операций, фигурные скобки будут отнесены только к последнему символу перед ними.
Если вы про скобки внутри скобок - да, они могут понадобиться только для получения значений. Впрочем, мои скобки тоже вернут значение, так что внутренние и здесь могут быть бесполезны.

[mr_creo]

vaut: для первого способа надо брать как single string: //s

[vaut]

mr_creo: фикс.

[vaut]

Adamos: почитал доки, опять ошибся. Скобки не обязательны.