perl XML::Simple print issue [closed]

by

Your code works when I try it on my machine. Of course, because you posted a picture of your code rather than posting it as text (I have no idea why people think that is useful – you’re just annoying people who you are asking to help you!), I had to re-type your code and it’s possible that I “accidentally” fixed whatever typo is causing your problem – I suspect a mis-match in capitalisation of the key you are trying to print.

It would also help to know which version of XML::Simple you are using. It’s possible that you are running up against a bug that has been fixed in a more recent version.

It’s worth pointing out a few things. Firstly, the documentation for XML::Simple contains this text:

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 and
XML::Twig is an excellent alternative.

The major problems with this module are the large number of options
(some of which have unfortunate defaults) and the arbitrary ways in
which these options interact – often producing unexpected results.

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

Given the clarity of that statement, I can’t understand why anyone would still be using that module for new development.

You should always have use strict and use warnings in your code. The first of those will force you to declare you variables (with my). And your future maintenance programmers will thank you if you avoid the new Class syntax and use Class->new instead.

Given all of those things (well, except I haven’t replaced XML::Simple), your code would look like this:

#!/usr/bin/perl

use strict;
use warnings;

use XML::Simple;
use Data::Dumper;

my $xml = XML::Simple->new;

my $data = $xml->XMLin('data.xml', KeyAttr => 'ns1');

print Dumper $data;
print $data->{repairStationId};

This code works as expected for me (but, then, so did your original code).

More Related Contents:

  1. What is meaning of defined keyword [closed]
  2. how to check if a number is whole number or contains a decimal
  3. How can i do this in perl, shortcut truthtable [closed]
  4. How to retrieve the values of required keys in Perl [closed]
  5. Perl: Meaning of double squared brackets after a string?
  6. How can I install a CPAN module into a local directory?
  7. How can I use CPAN as a non-root user?
  8. Perl daemonize with child daemons
  9. How can I output UTF-8 from Perl?
  10. What’s the difference between a hash and hash reference in Perl?
  11. Multiline search replace with Perl
  12. How do I “use” a Perl module in a directory not in @INC?
  13. Using perl’s `system`
  14. What’s the best way to open and read a file in Perl?
  15. How do I daemonize an arbitrary script in unix?
  16. How can I dynamically include Perl modules without using eval?
  17. How can I store the result of a system command in a Perl variable?
  18. How can I check if a file exists in Perl?
  19. Using Encode::encode with “utf8”
  20. Using output from a previous job in a new one in a GitHub Action
  21. How can I start an interactive console for Perl?
  22. What does =~ do in Perl? [closed]
  23. What does !! (double exclamation point) mean?
  24. Using my with parentheses and only one variable
  25. How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?
  26. What does shift() do in Perl?
  27. How can I extract text from a PDF file in Perl?
  28. How do I retrieve the terminal width in Perl?
  29. How do I tell CPAN to install all dependencies?
  30. How does a Perl program know where to find the file containing Perl module it uses?

Leave a Comment