¿Cómo puedo fusionar las definiciones de CSS en archivos en atributos de estilo en línea, usando Perl?

Question

A muchos clientes de correo electrónico no les gustan las hojas de estilo CSS vinculadas, o incluso la etiqueta <style> incrustada, sino que desean que el CSS aparezca en línea como atributos de estilo en todas sus marcas.

• MALO: <link rel=stylesheet type="text/css" href="/style.css">
• malo: <style type="text/css">...</style>
• funciona: <h1 style="margin: 0">...</h1>

Sin embargo este enfoque atributo de estilo en línea es un dolor derecho de administrar.

He encontrado herramientas para Ruby y PHP que tomarán un archivo CSS y un marcado separado como entrada y te devolverán el resultado combinado: un único archivo de marcado con todos los CSS convertidos en atributos de estilo.

Estoy buscando una solución Perl para este problema, pero no he encontrado ninguna en CPAN o buscando en Google. ¿Alguna sugerencia? Alternativamente, ¿hay módulos de CPAN que uno pueda combinar para lograr el mismo resultado?

• Rubí http://code.dunae.ca/premailer.web/
• PHP http://www.pelagodesign.com/sidecar/emogrifier/
• Perl?

Answer 1

No conozco una solución completa y preempaquetada.

CSS::DOM 's compute_style está sujeto a más o menos las mismas advertencias que emogrifier anteriormente. Ese módulo, junto con HTML::TokeParser debe ser útil para cocinar algo.

Actualización: Aquí es un buggy batiburrillo de cosas:

#!/usr/bin/perl 

use strict; 
use warnings; 

use CSS::DOM; 
use File::Slurp; 
use HTML::DOM; 
use HTML::TokeParser; 

die "convert html_file css_file" unless @ARGV == 2; 
my ($html_file, $css_file) = @ARGV; 

my $html_parser = HTML::TokeParser->new($html_file) 
    or die "Cannot open '$html_file': $!"; 

my $sheet = CSS::DOM::parse(scalar read_file $css_file); 

while (my $token = $html_parser->get_token) { 
    my $type = $token->[0]; 
    my $text = $type eq 'T' ? $token->[1] : $token->[-1]; 
    if ($type eq 'S') { 
     unless (skip($token->[1])) { 
      $text = insert_computed_style($sheet, $token); 
     } 
    } 
    print $text; 
} 

sub insert_computed_style { 
    my ($sheet, $token) = @_; 
    my ($tag, $attr, $attrseq) = @$token[1 .. 3]; 
    my $doc = HTML::DOM->new; 

    my $element = $doc->createElement($tag); 

    for my $attr_name (@$attrseq) { 
     $element->setAttribute($attr_name, $attr->{$attr_name}); 
    } 

    my $style = CSS::DOM::compute_style(
     element => $element, user_sheet => $sheet 
    ); 

    my @attrseq = (style => grep { lc $_ ne 'style' } @$attrseq); 
    $attr->{style} = $style->cssText; 

    my $text .= join(" ", 
     "<$tag", 
     map{ qq/$_='$attr->{$_}'/ } @attrseq); 
    $text .= '>'; 

    return $text; 
} 

sub skip { 
    my ($tag) = @_; 
    $tag = lc $tag; 
    return 1 if $tag =~ /^(?:h(?:ead|tml)|link|meta|script|title)$/; 
} 

Answer 2

Usted puede utilizar CSS::Inlinerhttp://search.cpan.org/dist/CSS-Inliner/