Convert CSS Style Attributes to HTML Attributes using Perl

Question

Real quick background : We have a PDFMaker (HTMLDoc) that converts html into a pdf. HTMLDoc doesn't consistently pick up the styles that we need from the html that is provided to us by the client. Thus I'm trying to convert things such as style="width:80px;height:90px;" to height=80 width=90. My attempt so far has revealed my limited understanding of back references and how to utilize them properly during Perl Regex. I can take an input file and convert it to an output file, but it only catches one "style" per line, and only replaces one name/value pair from that css. I'm probably approaching this the wrong way but I can't figure out a faster or smarter way to do this in Perl. Any help would be greatly appreciated! NOTE: The only attributes I'm trying to change for this particular script are "height", "width" and "border," because our client utilizes a tool that automatically applies styles to elements that they drag around with a WYSIWYG-style editor. Obviously, using a regex to stri…

Accepted Answer

You will have a very difficult time with this, for a few reasons:

- Most things that can be accomplished with CSS can't be done with HTML attributes. To deal with this you'd either have to ignore or attempt to compensate for things like margins and padding, etc...

- Many things that correspond between HTML attributes and CSS actually behave slightly differently, and you will need to account for this. To deal with this you would have to write specific code for each difference...

- Because of the way CSS rules are applied, you basically need to use a complete CSS engine to parse and apply all of the rules before you will know what needs to be done at the element/attribute level. To deal with this you could just ignore anything except inline styles, but...

This work is almost as complicated as writing a rendering engine for a browser. You might be able to deal with a few specific cases, but even there your success rate would be haphazard at best.

EDIT: Given your very specific feature set, I can give you a little advice on your implementation:

You want to be case-insensitive and use a non-greedy match when looking for the value of the style attribute, i.e.:

```
$line =~ /style=\"(.+?)\"/i;
```

So that you only find stuff up to the very next double-quote, not the entire content of the line up to the last double quote. Also, you probably want to skip the line if the match isn't found, so:

```
next unless ($line =~ /style=\"(.+?)\"/i);
```

For parsing the guts, I'd use `split` instead of regex:

```
my $newguts;
foreach my $style (split(/;/,$guts)) {
    my ($name, $value) = split(/:/,$style);
    $newguts .= "$name='$value' ";
}
$line =~ s/style=\"$guts\"/$newguts/i;
```

Of course, this being Perl there are standard mantras such as always use strict and warnings, try to use named matches rather than `$1`, `$2`, etc., but I'm trying to restrict my advice to stuff that will move your solution forward right away.

Convert CSS Style Attributes to HTML Attributes using Perl

Solution

Problem

Related problems