Александр, спасибо, сработало. В последней строке опечатка вместо $html = $html . '<p>' unless $html =~ /<\/p>\s*$/si; должно быть $html = $html . '</p>' unless $html =~ /<\/p>\s*$/si;
9 апреля 2009 г. 9:09 пользователь Alexander Lourier <[email protected]> написал: > On Wednesday 08 April 2009 22:12:02 Dmitry Arsentiev wrote: >> А вот не знает ли кто-нибудь модуля для того, чтобы текст, >> криво (невалидно) размеченный тегами <p> и </p>, >> обвернуть в эти теги правильным образом? > > Навскидку: > > $html =~ s/(?:<\/?p>\s*)+/<\/p><p>/gsi; > $html =~ s/^\s*<\/p>//si; > $html =~ s/<p>\s*$//si; > $html = '<p>' . $html unless $html =~ /^\s*<p>/si; > $html = $html . '<p>' unless $html =~ /<\/p>\s*$/si; > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
