ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander E.Kononenko 2:5020/400 23 Aug 2004 11:58:58
To : Vargen
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);
> }
> }
при первом вызове подпрограммы указывать корренной тег?
а что кидать как $child?
traverse_node($child, "top_tag");
________________________________________________________
Alexander E.Kononenko aka Neo
Программист дирекции по проектированию ИнфоЛада
neo@tlt.ru
ICQ 97553424
--- ifmail v.2.15dev5.3
* Origin: Ladem News Server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
