Regexp: substituting \n with <br /> except in certain places

[Sandman]

Textblock (indented for clarity):

Hello, my nickname is Sandman, here is
a list of things I like:

<ol>
<li> Perl
<li> PHP
<li> MySQL
</ol>

I want to replace newlines with "<br />\n" in this textblock, for displaying it
to a browser - but I don't want to replace it inside some specified html-tags -
in this case "ol", but also "ul", "pre" and "xmp".

So, the resulting text block should be:

Hello, my nickname is Sandman, here is<br />
a list of things I like:<br />
<br />
<ol>
<li> Perl
<li> PHP
<li> MySQL
</ol>

Is there a fancy regexp for this? I know how to exclude certain characters with
the [^...] 'switch', but what about whole blocks of text? In pseudo-code:
[^<(ol|ul|pre|xmp)>].

 

[Gunnar Hjalmarsson]

Textblock (indented for clarity):

Hello, my nickname is Sandman, here is
a list of things I like:

<ol>
<li> Perl
<li> PHP
<li> MySQL
</ol>

I want to replace newlines with "<br />\n" in this textblock, for
displaying it to a browser - but I don't want to replace it inside
some specified html-tags - in this case "ol", but also "ul", "pre"
and "xmp".

So, the resulting text block should be:

Hello, my nickname is Sandman, here is<br />
a list of things I like:<br />
<br />
<ol>
<li> Perl
<li> PHP
<li> MySQL
</ol>

How about:

$text =~ s{(<(ol|ul|pre|xmp)[^>]*>.*?</\2>\n?)|\n}
{ $1 ? $1 : "<br />\n" }egis;

 

[gnari]

Textblock (indented for clarity):

Hello, my nickname is Sandman, here is
a list of things I like:

<ol>
<li> Perl
<li> PHP
<li> MySQL
</ol>

I want to replace newlines with "<br />\n" in this textblock, for
displaying it to a browser - but I don't want to replace it inside
some specified html-tags - in this case "ol", but also "ul", "pre"
and "xmp".

So, the resulting text block should be:

Hello, my nickname is Sandman, here is<br />
a list of things I like:<br />
<br />
<ol>
<li> Perl
<li> PHP
<li> MySQL
</ol>

How about:

$text =~ s{(<(ol|ul|pre|xmp)[^>]*>.*?</\2>\n?)|\n}
{ $1 ? $1 : "<br />\n" }egis;

not bad.
if an extra '<br />' is acceptable after the end tag,
we can get rid of the /e:

$text =~ s{(<(ol|ul|pre|xmp)[^>]*>.*?</\2>\n?)|\n}
{<br />\n}gis;

gnari

 

[Gunnar Hjalmarsson]

How about:

$text =~ s{(<(ol|ul|pre|xmp)[^>]*>.*?</\2>\n?)|\n}
{ $1 ? $1 : "<br />\n" }egis;

not bad.

Thanks.

if an extra '<br />' is acceptable after the end tag,
we can get rid of the /e:

$text =~ s{(<(ol|ul|pre|xmp)[^>]*>.*?</\2>\n?)|\n}
{<br />\n}gis;

Don't understand. That would not just add extra '<br />'s, but it
would remove the identified HTML blocks.

 

[gnari]

How about:

$text =~ s{(<(ol|ul|pre|xmp)[^>]*>.*?</\2>\n?)|\n}
{ $1 ? $1 : "<br />\n" }egis;

not bad.

Thanks.

if an extra '<br />' is acceptable after the end tag,
we can get rid of the /e:

$text =~ s{(<(ol|ul|pre|xmp)[^>]*>.*?</\2>\n?)|\n}
{<br />\n}gis;

Don't understand. That would not just add extra '<br />'s, but it
would remove the identified HTML blocks.

indeed. of course I meant
$text =~ s{(<(ol|ul|pre|xmp)[^>]*>.*?</\2>\n?)|\n}
{$1<br />\n}gis;

gnari

 

[Sandman]

Textblock (indented for clarity):

Hello, my nickname is Sandman, here is
a list of things I like:

<ol>
<li> Perl
<li> PHP
<li> MySQL
</ol>

I want to replace newlines with "<br />\n" in this textblock, for
displaying it to a browser - but I don't want to replace it inside
some specified html-tags - in this case "ol", but also "ul", "pre"
and "xmp".

So, the resulting text block should be:

Hello, my nickname is Sandman, here is<br />
a list of things I like:<br />
<br />
<ol>
<li> Perl
<li> PHP
<li> MySQL
</ol>

How about:

$text =~ s{(<(ol|ul|pre|xmp)[^>]*>.*?</\2>\n?)|\n}
{ $1 ? $1 : "<br />\n" }egis;

Thanks, works perfectly!