Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: regex question

by Anonymous Monk
on Mar 23, 2004 at 15:42 UTC ( #339046=note: print w/replies, xml ) Need Help??


in reply to regex question

Thanks for the help all :) The solution I ended using was writing an adaptor mod for CSS::Adaptor.
package CSS::Adaptor::XML; $VERSION = 1.00; use CSS::Adaptor; @ISA = ('CSS::Adaptor'); use strict; use warnings; sub output_rule { my ($self, $rule) = @_; #loop on each selector foreach ($rule->selectors(@_)){ #grab the selector name my $selector = $rule->selectors; print "\t\<style name=\"".$selector."\"\>\n"; #loop on each selector's properties foreach ($rule->properties(@_)){ my @properties = $rule->properties; foreach my $line (@properties){ my %properties = split (/[:;]\s+/,$line); print "\t\t\<property name=\"".$_."\"\>".$properties{$ +_}."\<\\property\>\n" for ( keys %properties ); } } #closing style print "\t\<\\style\>\n"; } } 1; __END__
Then I call it like so:
my $css = CSS->new ({'adaptor' => 'CSS::Adaptor::XML'}); $css->read_string($css-passed-as-string); print $css->output(); $css->purge();
It gives me the css file in an xml format, which is what I was looking for. I would always be grateful for any suggestions to make this code better, stronger, faster. Thanks again for your help monks :)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://339046]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (2)
As of 2022-08-14 21:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?