Help for this page

Select Code to Download


  1. or download this
    my %resulting_vendors;
    my %vendors = %{ $xmldoc->{Catalog}{Vendors}{Vendor} };
    ...
        $resulting_vendors{$vendors{$vendor2}{vendorUniqueKey}}=$vendor2;
    }
    print Data::Dumper->Dump( [\%resulting_vendors], [qw(resulting_vendors
    +)] );
    
  2. or download this
    my %vendors = %{ $xmldoc->{Catalog}{Vendors}{Vendor} };