in reply to Extracting a list of selectors from a css file
Maybe CSS::Tiny is what you want:
use CSS::Tiny; my $string = do {local $/; <DATA>}; my $css = CSS::Tiny->read_string($string); $\ = "\n"; print for keys %$css; __DATA__ .selector_name { margin-left: 1em; }
--shmem
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
|
|---|