Re: How to access multiple values from XML file in our perl file

[choroba]

Dereference uses curly brackets:

foreach (@{ $Enbfield->{field} }) {
#         ^                    ^

[vasuperl]

Even i tried that one by changing that braces. But it is also showing error as "syntax error at field.pl line 15, near ") {" syntax error at field.pl line 18, near "}" Execution of field.pl aborted due to compilation errors."

[poj]

Semicolon missing here perhaps ?


print "@field \n";
#                ^

Consider using XML::Twig

#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
my $xml = 'value.xml';
my $twig = new XML::Twig(
  twig_handlers =>{ field => \&field }
);
$twig->parsefile($xml);

sub field {
  my ($t,$e) = @_;
  for ($e->children){
    if ($_->gi eq 'key'){
      print $_->att('name')." ";
    } elsif ($_->gi eq 'value'){      
      print $_->att('id')."\n";
    }
  }
}

poj

[jellisii2]

This, considering the following from XML::Simple's documentation (emphasis mine):

STATUS OF THIS MODULE ^

The use of this module in new code is discouraged. Other modules are available which provide more straightforward and consistent interfaces. In particular, XML::LibXML is highly recommended.

The major problems with this module are the large number of options and the arbitrary ways in which these options interact - often with unexpected results.

Patches with bug fixes and documentation fixes are welcome, but new features are unlikely to be added.

[Lotus1]

http://www.dummies.com/how-to/content/avoiding-common-oversights-in-perl.html