attributes to style xml

attr2style.pl

#!/usr/bin/env perl -w
use strict;

print "<style name=\"" . shift . "\">\n";
while (<>) {
  print " <item name=\"$1\">$2</item>\n" if ($_ =~ /\s*([^=]+)=\"([^\"]+)\"/i);
}
print "</style>\n";