Shell Programming and Scripting

<Component>
Comp1:
         {
          item1:data,someUniqueAttribute;
          item2:data,someUniqueAttribute,
         }
Comp2:
         {
          item3:data,someUniqueAttribute;
          item4:data,someUniqueAttribute,
         }
</Component>

<CART>
Fruits:
    {
      apple: 10, "red";
          Clementine: 30, "orange";
          banana: 50, "yellow";
        }
    
Vegetables:
    {
     cucumber: 70, "green";
         potato: 80, "brown";
        }

<CART>

#!/usr/bin/perl
%fr_hash1=(red=>apple,
        orange=>Clementine,
        yellow=>banana);
%veg_hash1=(green=>cucumber,
                brown=>potato);
%fr_veg=(Fruit=>\%fr_hash1,
        Vegetable=>\%veg_hash1);

$colour=shift;

for (keys(%fr_veg)) {
print "${$fr_veg{$_}}{$colour} & $_ \n" if exists ${$fr_veg{$_}}{$colour};
}

perl fr_veg.pl red