XML returned as hash problem

[mhamilton3]

I am having a problem gathing the data from an XML stream. The code is as follows:

my $XMLref = $xs->XMLin($result, suppressempty => '');

using

use Data::Dumper;
print Dumper($XMLref);

I get the following HASH

$VAR = { 'wellmed' => { 'wellmedack' => {}, 'wellmed.ack' => { 'errors' => '0', 'wellmed.response' => 'User data updated for ID: aac20fd41e07ea11d9bfc1ac192a16aa77', 'responses' => '1' } } };

I can not get the result of either wellmed.response or errors. Here is what I tried - could someone please point out where I went wrong?

print $XMLref->{wellmed}->{wellmed.ack}->{errors}

Thanks.

 

[MouldyGoat]

Try putting a couple of quotes in there:

#!/usr/bin/perl

$VAR = { 'wellmed' => 
	{ 'wellmedack' => {},
	  'wellmed.ack' => { 'errors' => '0', 'wellmed.response' => 'User data updated for ID: aac20fd41e07ea11d9bfc1ac192a16aa77',
		  'responses' => '1' }
	}
       };
       
$response = $VAR->{wellmed}->{wellmed.ack}->{wellmed.response};
$response2 = $VAR->{'wellmed'}->{'wellmed.ack'}->{'wellmed.response'};
print "Response 1: $response\nResponse 2: $response2\n";

 

[mhamilton3]

Thanks I found through my research that Perl does not like the "." in the middle of the tag. I went with the quotes and life is good again. Thanks again.