in reply to XML parsing

Try this: 
use 5.010;
use XML::Simple;
use Data::Dumper;

my $ref = XMLin(join('', <DATA>));
print Dumper($ref);

foreach my $i (0 .. $#{$ref->{'desc'}{'descript'}}) {
    say $ref->{'desc'}{'descript'}[$i]{'content'};
}

__DATA__
<entry type="CVE" severity="Medium">
    <desc>
      <descript source="cve">test1</descript>
      <descript source="nvd">test2</descript>
    </desc>
</entry>

[download]

Replies are listed 'Best First'.
Re^2: XML parsing
by asa (Novice) on Jan 09, 2012 at 08:31 UTC

    Actually I was trying something like this 

    foreach $desc ( @{ $e->{desc}->{descript} } ) {
        print REPORT $desc->{source}.':';
        print REPORT $desc->{content}. '<br>';

        }

    [download]
    But I don't understand why it doesn't work! Not an ARRAY reference at ./parser.pl line 47. Thanks.

[reply]
[d/l]

In Section Seekers of Perl Wisdom