Car
Wheels=4
Doors=4
Color=Blue
Bike
Wheels=2
Color=Red
####
my %item = (
Car => {
Wheels => 4,
Doors => 4,
Color => 'Blue',
},
Bike => {
Wheels => 2,
Color => 'Red'
},
);
##
##
my %item = (
Car => {
Wheels => 4,
Doors => 4,
Color => 'Blue',
},
Bike => {
Wheels => 2,
Color => 'Red'
},
Moped => {
Wheels => 2,
Color => 'Blue'
},
);
# build an index by attribute to item names...
my %attr;
for my $name ( keys %item ) {
for my $token ( keys %{$item{$name}} ) {
$attr{$token}{$item{$name}{$token}} ||= [];
push @{$attr{$token}{$item{$name}{$token}}}, $name;
}
}
print "Blue things: @{$attr{Color}{Blue}}\n";