perl regex - double search/replace

daymobrew

I am modifying a custom CMS for a client.
The very old editor that it has (htmlarea v3 I think) corrupts 'iframe' references so I have changed the angle brackets to square brackets for storing in the database, converting them back with a regex when the html pages are being created.

The editor also converts double quotes to the html entity (" ).

My code is:

$page_content_temp =~ s/\[iframe (.+?)\](.*)\[\/iframe\]/<iframe $1>$2<\/iframe>/sg;
$page_content_temp =~ s/&quot;/"/sg; # Return &quot; to actual double quotes.

The second line is the problem. I would like it to only change '"' that is within the 'iframe' code.
Should I write another few lines to capture the first line's $1 and $2 into new variables, then process them before reassembling?

daymobrew

I was thinking of something like:

# Extract the attributes of the iframe tag, where the '"' bits will be
($iframe_attrs) = ($data =~ /\[iframe (.+?)\].*\[\/iframe\]/;);
$iframe_attrs =~ s/"/"/sg;  # Change " to double quotes.

# Search/replace on the full date, but use the modified $iframe_attrs.
$data =~ s/\[iframe (.+?)\](.*)\[\/iframe\]/<iframe ${iframe_attrs}>$2<\/iframe>/g;

The bug with this code is that there could be multiple iframe elements in $data.

IRLConor

From the "crimes against readability" department:

$page_content_temp =~ s {\[iframe(.*?)\](.*?)\[/iframe\]}
                        {
                            my ($a, $c) = ($1, $2);
                            $c =~ s/"/"/g;
                            "<iframe$a>$c</iframe>"
                        }sexg;