ryands · October 26, 2012 22:29
diff --git a/attr2style.pl b/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";
	#!/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";