XML :: Parser :: обгортки модуль для розбору XML. XML :: Parser :: обгортки обгорткою поверх XML :: Parser, що забезпечує більш зручний API
ОГЛЯД
використання XML :: Parser :: Wrapper .;
мій $ XML = QQ {Привіт, світ!};
мій $ ROOT = XML :: Parser :: Wrapper-> нові ($, XML);
мій $ root2 = XML :: Parser :: Wrapper-> новий ({файл => '/tmp/test.xml'});
мій $ root_tag_name = $ корне-> ім'я;
мої $ roots_children = $ Root-> елементів;
FOREACH мій $ елемент (@ $ roots_children) {
якщо ($ element-> ім'я екв «голова») {
моєї $ ID = $ element-> ATTR (ід ');
мій $ hello_world_text = $ element-> текст; # Екв "Hello World!"
}
}
Мій $ head_element = $ Root-> елемент ('head2');
мої $ head_elements = $ Root-> Елементи ( "head2 ');
мій $ тест = $ Root-> елемент (' head2 ') -> елемент (' test_tag ');
мій $ new_element = $ корне-> add_child (' test4 ', {attr1 => 'val1'});
мій $ малюка = $ корне-> update_kid ('root_child ", {attr2 =>' stuff2 '},' бла ');
$ kid-> update_node ({new_attr => 'new_stuff'});
$ new_element-> add_child («дитина», {myattr => 'матеріал'}, 'BLEH');
мій $ new_xml = $ ROOT -> to_xml;
Вимоги
- Perl
Коментар не знайдено