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

[Mr. Muskrat]

in reply to Re^4: Perl XML parsing with XML::Simple - Having problem with accessing fields
in thread Perl XML parsing with XML::Simple - Having problem with accessing fields

Apparently, the XML doesn't match up to the dump you provided. Add the following before the line where you are trying to print the date so that you can see what the parser thinks the XML looks like.

print Dumper( $config );

If you still can't figure it out, provide the XML from /home/parse3.xml.

[vparikh]

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>

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";

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!

[Mr. Muskrat]

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>

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";

[vparikh]

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!