Comment fusionner des définitions CSS dans des fichiers en attributs de style en ligne, en utilisant Perl?

Question

De nombreux clients de messagerie n'aiment pas les feuilles de style CSS liées, ni même la balise <style> intégrée, mais souhaitent que le CSS apparaisse en ligne en tant qu'attributs de style sur tous vos balisages.

• BAD: <link rel=stylesheet type="text/css" href="/style.css">
• BAD: <style type="text/css">...</style>
• TRAVAUX: <h1 style="margin: 0">...</h1>

Cependant, cette approche d'attribut de style en ligne est une douleur droit de gérer.

J'ai trouvé des outils pour Ruby et PHP qui vont prendre un fichier CSS et un balisage séparé en entrée et vous renvoyer le résultat fusionné - un seul fichier de balisage avec toutes les CSS converties en attributs de style.

Je suis à la recherche d'une solution Perl à ce problème, mais je n'en ai pas trouvé sur le CPAN ni sur Google. Des pointeurs? Sinon, y a-t-il des modules CPAN que l'on pourrait combiner pour obtenir le même résultat?

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

Answer 1

Je ne connais pas de solution complète et préemballée.

CSS::DOM « s compute_style est sujet à peu près les mêmes mises en garde que emogrifier ci-dessus. Ce module, en conjonction avec HTML::TokeParser devrait être utilisable pour cuire quelque chose.

Mise à jour: Voici un méli-mélo buggy de choses:

#!/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

Vous pouvez utiliser CSS::Inlinerhttp://search.cpan.org/dist/CSS-Inliner/