Re: Help with attributes and XML::Simple

[Athanasius]

Building on the correction by Anonymous Monk above, the following code gives you a hash in which each entry has a vendorUniqueKey as the key and the corresponding name as the value:

#! perl
use strict;
use warnings;
use Data::Dumper;
use XML::Simple;

my $xmldoc  = XMLin("dsys.xml");
my $vendors = $xmldoc->{'Catalog'}->{'Vendors'};
my %vendors = %{ $vendors->{'Vendor'} };
my %unique_vendors;

while (my ($outer_key, $outer_value) = each %vendors)
{
    if (ref($outer_value) eq 'HASH')
    {
        my ($inner_key, $inner_value) = each %$outer_value;

        if ($inner_key eq 'vendorUniqueKey')
        {
            $unique_vendors{$inner_value} = $outer_key;
        }
        else
        {
            warn "Inner key is not 'vendorUniqueKey'";
        }
    }
    else
    {
        warn "Outer value is not a hash reference";
    }
}

print Dumper(\%unique_vendors);

Output:

$VAR1 = {
          'BETASYS' => 'Beta Systems Software',
          'BMC' => 'BMC Software',
          'ALLENGRP' => 'Allen Systems',
          'AONIX' => 'Aonix North America'
        };

HTH,

[Anonymous Monk]

If you want to use XML::Simple, then this is also one possible solution

my %resulting_vendors;
my %vendors = %{ $xmldoc->{Catalog}{Vendors}{Vendor} };
foreach my $vendor2 (keys %vendors )    {
    print "vendorUniqueKey: [", $vendors{$vendor2}{vendorUniqueKey}, "
+], vendor2: [$vendor2]\n"; 
    $resulting_vendors{$vendors{$vendor2}{vendorUniqueKey}}=$vendor2;
}
print Data::Dumper->Dump( [\%resulting_vendors], [qw(resulting_vendors
+)] );

The advantage of this code is, that it only uses things that you also used

The line

my %vendors = %{ $xmldoc->{Catalog}{Vendors}{Vendor} };

isn't really necessary, you can freely use the right part instead of %vendors, if you really want.