Creating a hash out of multiple XML attributes in an elment

perlvroom has asked for the wisdom of the Perl Monks concerning the following question:

Ok, the following script does what i need, but i was hoping someone could school me on how to do this more effeciently:

use XML::Twig;

  my $t= XML::Twig->new( twig_handlers => 
                           {   'settings' => \&file,
                                                }
                      
 )  ->parsefile( 'sample.xml');

sub file{
    my($t, $settings)=@_;
    
    foreach($settings->att('key')){
    if($settings->att('key') eq 'a'){
        $a = $settings->att('value');
        
    }
    if($settings->att('key') eq 'b'){
        $b = $settings->att('value');    
    }
    }
}
[download]

XML snippet:
<settings key="a" value="1"/>
<settings key="b" value="2"/>
The goal is to declare the "key" attribute as a variable with it's value equal to the "value" attribute in the same element, for all "settings" elements.

Comment on Creating a hash out of multiple XML attributes in an elment Download Code

Replies are listed 'Best First'.
Re: Creating a hash out of multiple XML attributes in an elment by mirod (Canon) on Jul 14, 2013 at 19:34 UTC
I think you want something like this: `my $key2value; my $t= XML::Twig->new( twig_handlers => { 'settings' => sub { file( +@_, $key2value); } } ) ->parsefile( 'sample.xml'); sub file{ my($t, $settings, $key2value)=@_; $key2value->{$settings->att( 'key')}= $settings->att( 'value'); }` [download]	[reply] [d/l]
Re^2: Creating a hash out of multiple XML attributes in an elment by perlvroom (Acolyte) on Jul 14, 2013 at 21:39 UTC
Yep. This is going to be a stupid question but how do i retrieve/print the value for, say, key "a"?	[reply]
Re^3: Creating a hash out of multiple XML attributes in an elment by mirod (Canon) on Jul 15, 2013 at 02:02 UTC
`$key2value` is a hash reference, you retrieve the value for `a` this way: `$key2value->{a}` see perldata for more info.	[reply] [d/l] [select]
Re^4: Creating a hash out of multiple XML attributes in an elment by perlvroom (Acolyte) on Jul 15, 2013 at 14:50 UTC
Re^5: Creating a hash out of multiple XML attributes in an elment by Jenda (Abbot) on Jul 15, 2013 at 15:03 UTC
Re^3: Creating a hash out of multiple XML attributes in an elment by Anonymous Monk on Jul 14, 2013 at 23:32 UTC
mirod used a key called "key", if you want a key called "a", maybe you should replace "key" with "a" or something like that, I haven't read perlintro so I'm not sure	[reply]
Re: Creating a hash out of multiple XML attributes in an elment by Jenda (Abbot) on Jul 15, 2013 at 15:20 UTC
That's a bad goal. Please read Why it's stupid to `use a variable as a variable name'. You want to store the data in a hash instead. Jenda Enoch was right! Enjoy the last years of Rome.	[reply]

Back to Seekers of Perl Wisdom