पर्ल का उपयोग करके, इनलाइन शैली विशेषताओं में फ़ाइलों में सीएसएस परिभाषाओं को कैसे विलय कर सकता हूं?

Question

कई ईमेल क्लाइंट लिंक किए गए सीएसएस स्टाइलशीट, या यहां तक ​​कि एम्बेडेड <style> टैग पसंद नहीं करते हैं, बल्कि चाहते हैं कि सीएसएस आपके सभी मार्कअप पर शैली विशेषताओं के रूप में इनलाइन दिखाई दे।

• खराब: <link rel=stylesheet type="text/css" href="/style.css">
• खराब: <style type="text/css">...</style>
• काम करता है: <h1 style="margin: 0">...</h1>

हालांकि इस इनलाइन शैली विशेषता दृष्टिकोण प्रबंधन के लिए एक सही दर्द है।

मुझे रूबी और PHP के लिए टूल मिल गए हैं जो एक सीएसएस फ़ाइल और इनपुट के रूप में कुछ अलग मार्कअप लेंगे और आपको मर्ज किए गए परिणाम लौटाएंगे - सभी सीएसएस के साथ मार्कअप की एक फ़ाइल शैली विशेषताओं में परिवर्तित हो जाएगी।

मैं इस समस्या का एक पर्ल समाधान ढूंढ रहा हूं, लेकिन मुझे सीपीएएन पर या Google को खोजकर नहीं मिला है। कोई संकेतक? वैकल्पिक रूप से, क्या सीपीएएन मॉड्यूल एक ही परिणाम प्राप्त करने के लिए गठबंधन कर सकते हैं?

• रूबी http://code.dunae.ca/premailer.web/
• पीएचपी http://www.pelagodesign.com/sidecar/emogrifier/
• पर्ल?

Answer 1

मुझे एक पूर्ण, पूर्व-पैक समाधान का पता नहीं है।

CSS::DOM के compute_style काफी emogrifier रूप में एक ही चेतावनियां ऊपर के अधीन है। HTML::TokeParser के संयोजन के साथ उस मॉड्यूल को कुछ पकाए जाने के लिए उपयोग करने योग्य होना चाहिए।

अद्यतन: यहाँ चीजों के एक गाड़ी mish मैश है:

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

आप उपयोग कर सकते हैं CSS::Inlinerhttp://search.cpan.org/dist/CSS-Inliner/