Dosyalardaki CSS tanımlarını Perl kullanarak satır içi stil özniteliklerine nasıl birleştirebilirim?

Question

Birçok e-posta istemcisi, bağlı CSS stil sayfalarını ve hatta gömülü <style> etiketini sevmez, bunun yerine CSS'nin tüm biçimlendirmede stil öznitelikleri olarak satır içi görünmesini istemez.

• KÖTÜ: <link rel=stylesheet type="text/css" href="/style.css">
• KÖTÜ: <style type="text/css">...</style>
• İŞLER: <h1 style="margin: 0">...</h1>

Ancak bu satır içi stil nitelik yaklaşımı yönetmek için doğru acıdır.

Ruby ve PHP için bir CSS dosyası ve giriş olarak ayrı bir işaretleme alacağınız ve birleştirilen sonucu size döndüren araçları buldum. Bu, tüm CSS stil özelliklerine dönüştürülmüş tek bir işaretleme dosyası.

Bu soruna bir Perl çözümü arıyorum, ancak CPAN'da veya Google'da arama yapamadım. Herhangi bir işaretçi? Alternatif olarak, aynı sonucu elde etmek için bir araya getirilebilecek CPAN modülleri var mı?

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

Answer 1

Tam, önceden paketlenmiş bir çözüm bilmiyorum.

CSS::DOM 'ın compute_style hemen hemen aynı uyarılar emogrifier yukarıdaki tabidir. Bu modül, HTML::TokeParser ile birlikte bir şeyler pişirmek için kullanılabilir olmalıdır. Güncelleme

: İşte şeylerin bir arabası miş-püre geçerli:

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

Biliyorsun vardı dosyaların bir demet üzerinde çalıştı posted kod @mintywalker CSS::Inlinerhttp://search.cpan.org/dist/CSS-Inliner/