Спасибо, Андрей, сработало! ;) Правда, все эти заглядывающие вперёд/назад утверждения я не знаю, :( поэтому сходу понять, как оно работает, не смог. Надо будет перечитать mastering regular expressions.
9 апреля 2009 г. 11:07 пользователь Andrey Fedorov <[email protected]> написал: > В Срд, 08/04/2009 в 22:12 +0400, Dmitry Arsentiev пишет: >> Народ, доброй ночи. >> >> А вот не знает ли кто-нибудь модуля для того, чтобы текст, >> криво (невалидно) размеченный тегами <p> и </p>, >> обвернуть в эти теги правильным образом? > > Зачем искать для всего готовые модули, когда это можно сделать самому в > несколько строк?! > > $in =~ s/\n|\r//g; > $in =~ s/(?<=^)|(?<=<\/p>)(?!<p>)/<p>/gi; > $in =~ s/(?<!<\/p>)(?<!^)(?=<p>)|(?=$)/<\/p>/gi; > $in =~ s/<p><\/p>//g; > > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
