Classe :: XML :: Parser Parsas (e opcionalmente valida contra um DTD) uma mensagem XML em uma estrutura de classe definida pelo usuário
Baixe Agora

Classe :: XML :: Parser Classificação e resumo

Classe :: XML :: Parser Tag

mensagem Módulo Perl. Xml. analisador analisador de mensagens Mensagem XML.

Classe :: XML :: Parser Descrição

Parsas (e opcionalmente validam contra um DTD) uma mensagem XML em uma estrutura de classe definida pelo usuário Classe :: XML :: Parser é um módulo Perl que permite que o XML seja analisado em uma hierarquia de objeto definida pelo usuário. Além disso, o XML será validado contra o dtd, se tal for definido no corpo XML, e XML :: Declarador :: Parser está disponível. Uma nota sobre como a análise é feita. Quando o método -> Parse é chamado, o nome de cada elemento é verificado em relação à classe atual '(root_class por padrão) __xml_parse_objects result. Se uma entrada existir para este elemento no hash __xml_parse_objects, uma nova instância da classe de destino é criada. Todos os outros elementos e atributos serão chamados como mutadores nesse objeto, até que a tag de fechamento para o elemento seja encontrada, quando o objeto anterior seria restaurado, e todos os outros elementos serão padrão para chamar acessadores nesse objeto. Se os elementos aninhados forem encontrados, mas nenhuma definição __xml_parse_objects existe para eles, todos os elementos de dados e atributos serão dobrados com o objeto atual (elementos somente de contêineres são * não * adicionados). Classe Base de Resultado. Parseresult :: Base; sub new {abençoe {}, shift (); } Sub AutoLoad {My ($ self, $ Val) = @_; Meu MASETO = $ AUTOLOAD; $ meth = ~ s /.* :: //; retorno se $ meticulares 'destruir'; se (definido $ Val) {$ auto -> {$ meth} = $ Val; } $ auto -> {$ meth}; } # Definir classes que XML são analisados no pacote parseresult; Use base QW (Parseresult :: Base); # Opcional definir subclasses que elementos específicos serão analisados. # Se este método não existir, todos os sub-elementos e seus atributos # serão analisados nesta classe sub __xml_parse_objects {{blah => 'parseresult :: blah',}}}}}} # Opcionalmente, ter uma classe use um construtor outro do que 'novo'. Ócio # para classe :: singleton objetos sub __xml_parse_construturador {'novo'} # opcionalmente, tem elementos aliased para um método diferente do nome do elemento xml # sub __xml_parse_aliases {{elem1 => 'bar',}} pacote parseresult :: blah; Use base QW (Parseresult :: Base); pacote principal; Use Classe :: XML :: Parser; Meu $ XML = 'Parseresult', # classe de nível superior para analisar os resultados em fraca => 1, validar => 1, # Validação DTD deve ser feita map_uri => {# mapas de XML sysid ou púbico para URLs para substituir. Use para evitar # Ter que fazer uma recuperação http do DTD, em vez disso, encontrá-lo no número # O sistema de arquivos local 'http://example.com/parse.dtd' => '' arquivo: /tmp/parse.dtd ',}, ); Minha $ top = $ parser-> anal ($ xml) ou morrer $ parser-> Last_Error; Imprimir dumper $ top; # Assumindo que o DTD existe, isso retornará uma estrutura de: # $ var1 = abençoe ({# 'blá' => abençoe ({# 'Wobble' => 'Wobble', # sub-elemento de # 'a' => '20' # atributos também são tratados #}, 'Parseresult :: Blah'), # criado como novo objeto, como Blah # # definido em nível superior # # __xml_parse_objects # 'qwerty' => 'uiop' # sub-elemento de raiz #}, 'parseresult'); # Top Objeto é abençoado em # # 'ROOT_CLASS' Requisitos: · Perl.

Classe :: XML :: Parser Software Relacionado