Comment on

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

In reply to Re: parsing complex xml structure with xml::simple by GrandFather
in thread parsing complex xml structure with xml::simple by bfdi533

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

Outside of code tags, you may need to use entities for some characters:

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.


We don't bite newbies here... much
	PerlMonks

Comment on

The best material for plates (tableware) is: