The OpenNET Project / Index page

[ новости/++ | форум | wiki | теги | ]

Разбор XML в perl скриптах (xml perl)


<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>
Ключевые слова: xml, perl,  (найти похожие документы)
Date: Mon, 09 Dec 2002 18:15:45 +0500 From: Andrey Sapozhnikov <sapa@icb.chel.su> Newsgroups: ftn.ru.cgi.perl Subject: Разбор XML в perl скриптах > Hе могу врубиться как разбирать XML > Hарод рекомендовал юзать XML::LibXML > Мне надо Разобрать ваш XML и засунуть его в базу. > XML файл выглядит примерно так: > <material><date>21.03.2002 11:53</date><author>Some > author.</author><author_id>7966</author_id><can_edit>0</can_edit><title><![CDATA[Some > > > text.Some text.Some text.Some text.Some text.Some text.Some text.Some > text.Some text.Some text. > ]]></title><id>10242</id><headline><![CDATA[Some text.Some text.Some > text. </div>]]></text><material_other_theme><name>some > text</name><link>7251</link></material_other_theme><comments> > </comments> > </material> Пожалуйста: #!/usr/bin/perl -w use strict; use XML::DOM; sub elvalue { my ($self, $nodetag) = @_; my $text = ''; foreach ($self->getElementsByTagName($nodetag)->item(0)->getChildNodes) { $text .= $_->getNodeValue if $_->getNodeType == TEXT_NODE || $_->getNodeType == CDATA_SECTION_NODE; } $text; } my $parser = new XML::DOM::Parser; my $doc = $parser->parsefile("ourfile.xml"); my $parent = $doc->getDocumentElement; my $date = $parent->main::elvalue('date'); my $author = $parent->main::elvalue('author'); my $headline = $parent->main::elvalue('headline'); my $text = $parent->main::elvalue('text'); ... Андрей

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

Обсуждение [ RSS ]
 
  • 1, Fduch (??), 06:03, 08/11/2007 [ответить]    [к модератору]
  • +/
    Can't call method "getChildNodes" on an undefined value at ./list.pl line 8.
     
  • 2, Tuchka (??), 15:51, 11/03/2010 [ответить]    [к модератору]
  • +/
    Вот тоже хорошая статья по разбору XML
    http://www.netunix.ru/index.php/menuperl/articleparserxml.html

     

    Ваш комментарий
    Имя:         
    E-Mail:      
    Заголовок:
    Текст:




      Закладки на сайте
      Проследить за страницей
    Created 1996-2017 by Maxim Chirkov  
    ДобавитьРекламаВебмастеруГИД  
    Hosting by Ihor