A random picture

0 ##

##

#!/usr/bin/perl -w

use strict;
use XML::DOM;

my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile ("config.xml");

my $config = $doc->getDocumentElement;
my @functions = $config->getElementsByTagName('function');
foreach my $function (@functions) {
       my @arguments = $function->getElementsByTagName('argument');
       foreach my $argument (@arguments) {
              my @argumentValue = $argument->getFirstChild->getData;
              print "argument: @argumentValue\n";
       }
}


##

##

mismatched tag at line 3, column 36, byte 98 at /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/XML/Parser.pm line 185