Regex to uppercase tags 2

[sucram]

Hi,

I was wondering if anyone has come across some regex that could do the following, (I am terrible at regex).

Make everthing inside a html tag uppercase except what is enclosed in quotes.

From: <form action=&quot;

http://ddd.com&quot;

method=&quot;post&quot;>

To: <FORM ACTION=&quot;

http://ddd.com&quot;

METHOD=&quot;post&quot;>

Thanks,
Marcus

 

[amarkiew]

$tag ='<form action=&quot;

http://ddd.com&quot;;

method=&quot;post&quot;>';

print &quot;TAG = $tag\n&quot;;
$tag =~ s/(.*?)(&quot;.*?&quot/uc($1).$2/eg;
print &quot;TAG = $tag\n&quot;;

Output:
TAG = <form action=&quot;

http://ddd.com&quot;;

method=&quot;post&quot;>
TAG = <FORM ACTION=&quot;

http://ddd.com&quot;;

METHOD=&quot;post&quot;>

If you need to preserve the tag use a hold variable.

Just some notes about the RegEx:
The question marks make it not greedy so you won't run over all matches to get to the end of the string.
The s///g makes it iterate globally so you find them all.
The s///e makes the right side &quot;uc($1).$2&quot; evaluated as an expression instead of literal allowing us to upper case it.

This also assumes you'll always have tag=&quot;xyz&quot; format.

Andrew