|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vargen 2:5020/400 20 Aug 2004 22:39:17
To : Alexander E.Kononenko
Subject : Re: XML :: DOM
--------------------------------------------------------------------------------
sub traverse_node {
my ($node, $tag) = @_;
for my $child ($node->getElementsByTagName($tag)) {
# Delai chto nado s chadom
#...
# Recursiya
traverse_node($child, $tag);
}
}
Alexander E.Kononenko wrote:
> Добрый день.
> Есть задача разобрать XML дерево в перл.
> насколько я понимаю принцип такой:
> - определяется вершина
> - далее определяются потомки этой вершины
> и так далее углубляясь, пока не закончатся потомки у каждой ветки.
> Всё это дело через рекурсию.
>
> Так вот проблема, не получается у меня никак определить потомков от
> корня.
> Кто может реально подсказать как?
>
> P.S.
> my $parser = new XML::DOM::Parser;
> my $doc = $parser->parsefile("template.xml");
> my $nodelist = $doc->getElementsByTagName( "templates" );
> my $n=$nodelist->getLength();
>
> Вот как определить потомков отсюда?
>
> ________________________________________________________
> Alexander E.Kononenko aka Neo
> Программист дирекции по проектированию ИнфоЛада
> neo@tlt.ru
> ICQ 97553424
>
>
--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: Talk.Mail.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: XML :: DOM 