Re: Help with attributes and XML::Simple

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);
[download]

Output:

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

HTH,

Athanasius <°(((>< contra mundum

Comment on Re: Help with attributes and XML::Simple Select or Download Code

Replies are listed 'Best First'.
Re^2: Help with attributes and XML::Simple by Anonymous Monk on Aug 01, 2012 at 15:55 UTC
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 +)] );` [download] The advantage of this code is, that it only uses things that you also used The line `my %vendors = %{ $xmldoc->{Catalog}{Vendors}{Vendor} };` [download] isn't really necessary, you can freely use the right part instead of %vendors, if you really want.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Help with attributes and XML::Simple
by Anonymous Monk on Aug 01, 2012 at 15:55 UTC

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
+)] );
[download]

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

The line

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

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

[reply]
[d/l]
[select]