This is the file it's accessing...use strict; use XML::Simple; my $file = 'files/camelids.xml'; my $xs1 = XML::Simple->new(); my $doc = $xs1->XMLin($file); foreach my $key (keys (%{$doc->{species}})){ print $doc->{species}->{$key}->{'common-name'} . ' (' . $key . ') ' +; print $doc->{species}->{$key}->{conservation}->{status} . "\n"; }
Can anyone tell me what's wrong with it, or give me some kind of guidance on how to manipulate XML in Perl.<?xml version="1.0"?> <camelids> <species name="Camelus bactrianus"> <common-name>Bactrian Camel</common-name> <physical-characteristics> <mass>450 to 500 kg.</mass> <appearance> The most noticeable ... </appearance> </physical-characteristics> <natural-history> <food-habits> Camels are herbivores... </food-habits> <reproduction> Mating season occurs ... </reproduction> <behavior> Domestic camels ... </behavior> <habitat> The camel's habitat ... </habitat> </natural-history> <conservation status="endangered"> <detail> Camels were thought ... </detail> </conservation> </species> </camelids>
Sorry, by not working, I meant that it's totally and completely not working. I'm getting a "500 Internal Server Error" error.
In reply to Perl and XML by BzBeauty
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |