http://www.perlmonks.org?node_id=1046099


in reply to Get the XML nodes.

for my $linear ( @{$data->{linears}->{linear}} ){ for my $pointTmc ( @{$linear->{pointTmc}} ){ print "$pointTmc->{dataTypes}->{dataType}->{speedSources}->{speedS +ource}->{speed} \n"; print "$pointTmc->{dataTypes}->{dataType}->{speedSources}->{speedS +ource}->{timestamp} \n"; } }

poj