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-2019 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру
    Hosting by Ihor