Хитрый Perl-квайн

[Habazlam]

Ой, всё.
Провёл сегодняшний день, пиля тупой конечный автомат под FasrCGI.
В Иркутске хоть омуля в перерыве поедят, а я как сирота

[4umak]

С омулем сложновато нынче, официально промышленный вылов пока прикрыли:(

[codesign]

Всё-таки неправильно разбирать начинать с правой стороны, т.к. парсится программа слева направо. Хотя итоговый разбор — верный.
Кстати, смотреть подобное можно с помощью Deparse:

$ perl -MO=Deparse -E 'Illegal division by zero at /tmp/quine.pl line 1.'
use feature 'current_sub', 'evalbytes', 'fc', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval';
'division'->Illegal('zero'->by('at' / 'tmp' / 'quine' . 'line'->pl(1)));
-e syntax OK

[DmitryComRu]

«Перловый» — теперь это новое слово в моем словарном запасе. :-)