Re^6: Perl XML parsing with XML::Simple - Having problem with accessing fields

Sorry if this is causing the confusion. Alright so I am providing everything again. This is my original XML file:

<DATA>
  <DATA1>
    <TIME>2012-08-04T20:15:04.506-04:00<TIME>
    <DATA2>
      <DATE-NOW>2000-10-19</DATE-NOW>
      <ID>A95</ID>
      <STATUS>A</STATUS>
      <TIME/>
    </DATA2>
  </DATA1>
</DATA>
[download]

And this is my perl script: My goal is to get to - 2000-10-19

use strict;
use warnings;

use XML::Simple; # qw(:strict);
use Data::Dumper;

my $simple = XML::Simple->new();
my $config = $simple->XMLin('parse3.xml');

print Dumper($config) # this prints out parsed xml

print $config->{DATA1}->{DATA2}->{DATE-NOW}, ".\n";
[download]

Please let me know what I can change in my code to make it work.
Thanks everyone again! You have all been a great help!

Comment on Re^6: Perl XML parsing with XML::Simple - Having problem with accessing fields Select or Download Code

Replies are listed 'Best First'.
Re^7: Perl XML parsing with XML::Simple - Having problem with accessing fields by Mr. Muskrat (Canon) on Aug 17, 2012 at 20:01 UTC
If you actually ran the code you posted, you would know what was wrong. syntax error at ./parse.pl line 13, near ") #" You lost the semicolon. It should be: `print Dumper($config); # this prints out parsed xml` Once that's fixed you'll encounter two more errors: Bareword "DATE" not allowed while "strict subs" in use at ./parse.pl line 13. Bareword "NOW" not allowed while "strict subs" in use at ./parse.pl line 13. Quote DATE-NOW: `print $config->{DATA1}->{DATA2}->{'DATE-NOW'}, ".\n";` Now you'll see there are problems with the XML.. `End tag mismatch (DATA1 != TIME) [Ln: 10, Col: 9]` I'm assuming you typed it instead of using copy/paste. Here's the corrected XML: `<DATA> <DATA1> <TIME>2012-08-04T20:15:04.506-04:00</TIME> <DATA2> <DATE-NOW>2000-10-19</DATE-NOW> <ID>A95</ID> <STATUS>A</STATUS> <TIME/> </DATA2> </DATA1> </DATA>` [download] Here's the code with the above corrections made: `use strict; use warnings; use XML::Simple; # qw(:strict); use Data::Dumper; my $simple = XML::Simple->new(); my $config = $simple->XMLin('parse3.xml'); print Dumper($config); # this prints out parsed xml print $config->{DATA1}->{DATA2}->{'DATE-NOW'}, ".\n";` [download]	[reply] [d/l] [select]
Re^8: Perl XML parsing with XML::Simple - Having problem with accessing fields by vparikh (Novice) on Aug 20, 2012 at 13:15 UTC
It works!! Thanks a lot for your helps.. I was really lost on what I did wrong but it is working thanks to you!! I really appreciate it!	[reply]