Dotaz: Perl a Xpath

[Jezza]

Příloha:

• forum.xml (5290 bytů)

Mam takovyto xml soubor: fi.muni.cz/~xjezek2/temp/forum.xml

 

Chci z nej dostat urcita data a pouzivam na to upraveny skript z tohoto fora:

use strict;
use DBI;
use XML::XPath;

my $xp = XML::XPath->new(filename => 'def.xml');

foreach my $row ($xp->findnodes('//oval_definitions/definitions/definition/metadata')) {
  print "title = ";
    print $row->find('title')->string_value;
 
    foreach my $row ($xp->findnodes('//oval_definitions/definitions/definition/metadata/affected')) {
  print "platform = ";
    print $row->find('platform')->string_value; ## jak na vice platfotm?    Jak ulozit hodnotu tagu do promente, jak vypsat atribut tagu?
   
    }
}

 

Potreboval bych dostat informace z tagu platform, ktery je v jedne urovni vicekrat.

Dale bych se chtel zeptat, jak ulozit do promenne tato ziskana data misto toho, ze se tisknout...zkousel jsem to ruzne, ale pise by to chyby.

Posledni dotaz je, lze ziska nejen hodnotu tagu, ale i jeho atributy, jako je treba i tagu <definition> comment a id?

Predem diky

Na otázku zatím nikdo bohužel neodpověděl.