Re: parsing complex xml structure with xml::simple

You may find XML::TreeBuilder easier to deal with than XML::Simple for non-trivial XML:

use strict;
use warnings;
use XML::TreeBuilder;

my $xmlStr = <<'STR';
[download]

    <root>
       <Check>
                <Detail>
                        <Head>
                                <Col>User</Col>
                                <Col>Weak Password</Col>
                                <Col>Locked Out</Col>
                                <Col>Disabled</Col>
                        </Head>
                        <Row Grade="0">
                                <Col>Guest</Col>
                                <Col>Weak</Col>
                                <Col>-</Col>
                                <Col>Disabled</Col>
                        </Row>
                        <Row Grade="0">
                                <Col>SUPPORT_388945a0</Col>
                                <Col>-</Col>
                                <Col>-</Col>
                                <Col>Disabled</Col>
                        </Row>
                        <Row Grade="5">
                                <Col>Administrator</Col>
                                <Col>-</Col>
                                <Col>-</Col>
                                <Col>-</Col>
                        </Row>
                </Detail>
        </Check>
        <Check>
                <Detail>
                        <Head>
                                <Col>Drive Letter</Col>
                                <Col>File System</Col>
                        </Head>
                        <Row Grade="5">
                                <Col>C:</Col>
                                <Col>NTFS</Col>
                        </Row>
                </Detail>
        </Check>
    </root>
[download]

STR

my $tree = XML::TreeBuilder->new;

$tree->parse ($xmlStr);

for ($tree->find ('Detail')) {
    for ($_->find ('Row')) {
        print "Col: " . $_->as_text () . "\n" for ($_->find ('Col'));
    }
}
[download]

Prints:

Col: Guest
Col: Weak
Col: -
Col: Disabled
Col: SUPPORT_388945a0
Col: -
Col: -
Col: Disabled
Col: Administrator
Col: -
Col: -
Col: -
Col: C:
Col: NTFS
[download]

DWIM is Perl's answer to Gödel

Comment on Re: parsing complex xml structure with xml::simple Select or Download Code


Perl: the Markov chain saw
	PerlMonks