perl -lne'chomp;@a=split/:/;push@{$h{$1}},[@a]if(/(.+){/../}/)&& length($a[1]);END{for(keys%h){$h{$_}=~s/$_.*{|\t//g;print"$_ {"; for(@{$h{$_}}){print" $_->[0] : $_->[1]";}print"}\n"}}' test.css
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: CSS parsing
by ambrus (Abbot) on Jun 15, 2005 at 15:11 UTC | |
by ww (Archbishop) on Jun 15, 2005 at 17:12 UTC | |
by ambrus (Abbot) on Jun 15, 2005 at 19:15 UTC |