Есть что-то вроде $var=~/("(.+?)"|..другой суб-паттерн..)/;
Два дня ловлю непонятный баг: на юнит-тестах регексп работает отлично, а на реальной задаче выводит вообще что-то непонятное. Воткнул где только можно отладку в виде сообщений (?{print "еще жив!"}) и начал разбирать - нужный паттерн умирает после 32767 интераций и начинает работу другой суб-паттерн, откуда и шли непонятные глюки.
Можно ли как-то обойти лимит без перекомпиляции? В мане нашел n and m are limited to integral values less than a preset limit defined when perl is built. This is usually 32766 on the most common platforms.
Или в морг и все переписывать?
