android.style.hierachy.pl

#!/usr/bin/env perl
use strict;
use warnings;
use XML::Simple;
use Data::Dump qw/dump/;

my $config = XMLin('style.xml');
my $style={};
foreach my $key (keys %{$config->{style}}) {
    my @names = split /\./, $key;
    my $tmp='$style->{';
    $tmp .= join '}->{', @names;
    $tmp.='}={}';
    eval $tmp;
}

print dump($style);