Replace multiple regex into one regex in perl

Question

Can I replace following regex into one regex in perl

message =~ s/&lt;span&gt;(.*?)&lt;\/span&gt;/<span>$1<\/span>/g;
message =~ s/&lt;em&gt;(.*?)&lt;\/em&gt;/<em>$1<\/em>/g;
message =~ s/&lt;ul&gt;(.*?)&lt;\/ul&gt;/<ul>$1<\/ul>/g;
message =~ s/&lt;ol&gt;(.*?)&lt;\/ol&gt;/<ol>$1<\/ol>/g;

Rohit Jain · Accepted Answer · 2013-07-26 10:19:21Z

3

You can do it like this:

message =~ s#
       &lt;
       (?<tag>span|em|ul|ol)   
       &gt;
       (.*?)
       &lt;
       /
       \k<tag>   
       &gt;
     #
       <$+{tag}>  
       $2    
       </$+{tag}>
     #xg;

edited Jul 26, 2013 at 10:19

answered Jul 26, 2013 at 10:07

Rohit Jain

214k45 gold badges419 silver badges534 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

amon Over a year ago

This is a very elegant answer, but it isn't strictly speaking equivalent. Compare the result for encode_entities "foo". As this answer doesn't recurse, the output would be foo `.

Rohit Jain Over a year ago

@amon. Yeah, that is an issue. Nested tags is always going to have problem while combining HTML with Regex.

manu Over a year ago

yes, that's an issue...any solution for Nested tags...I need that for my text conversion...

Rohit Jain Over a year ago

@manu. Use appropriate html parser. Regex is not the right tool to parse HTML.

Casimir et Hippolyte · Accepted Answer · 2013-07-26 12:23:05Z

1

I'm not sure you need to capture the content between tags. Why not just replace < and > around tag names?

message =~ s#&lt;(/?(?:span|em|[uo]l))&gt;#<$1>#g;

answered Jul 26, 2013 at 12:23

Casimir et Hippolyte

90k5 gold badges102 silver badges131 bronze badges

Collectives™ on Stack Overflow

Replace multiple regex into one regex in perl

2 Answers 2

4 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

4 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related