Re: XML parsing

[trizen]

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>

[asa]

Actually I was trying something like this

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

        }

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