ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander E.Kononenko                2:5020/400     18 Nov 2004  11:57:56
 To : All
 Subject : XML
 -------------------------------------------------------------------------------- 
 

 Добрый день.
 Hикак не могу понять почему не выводится значение нода :(
 Подскажите. Может нужно использовать не getData?
 Хотя пробовал и GetNodeValue - глухо.
 Имя тэга выводит, а вот его значение нет.
 
 #!/usr/bin/perl
 use XML::DOM;
 
 my $parser = new XML::DOM::Parser;
 my $doc = $parser->parsefile ("neo_26100025.xml");
 my $nodelist = $doc->getElementsByTagName ("reports");
 my $node=$nodelist->item;
 my @list = $node->getChildNodes;
 
 foreach (@list)
 {
 if ($_->getNodeType  == 1) {
         print "-".$_->getTagName."\n";
         @list = $_->getChildNodes;
         foreach (@list)
         {
         print $_->getNodeType."\n";
         if ($_->getNodeType  == 1) {print "---".$_->getTagName."\n";}
         if ($_->getNodeType  == 3) {print "---".$_->getData."\n";}
 
         }
   }
 }
 ________________________________________________________
 Alexander E.Kononenko aka Neo
 Программист дирекции по проектированию ИнфоЛада
 neo@tlt.ru
 ICQ 97553424
 --- ifmail v.2.15dev5.3
  * Origin: Ladem News Server (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    XML   Alexander E.Kononenko   18 Nov 2004 11:57:56   Re: XML   Norrsken   25 Nov 2004 22:09:32