Perl XML: erreur d'analyse SAX -> Valeur d'attribut non imprimable

Question

J'essaye d'analyser XML en Perl en utilisant XML::SAX parser. Ma requête concerne la création de valeurs d'attributs. En ce moment, je suis en mesure de générer des seules valeurs présentes à l'intérieur des éléments d'étiquette, mais mon objectif est de générer:

Element Name: Element Value: 
    Element Attribute Name: Element Attribute Value: 
    Element Child Name: Element Child Value 
    Element Child Attribute Name: Element Child Attribute Value 

Voici mon books1.xsd:

<?xml version="1.0" encoding="UTF-8"?> 
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" 
      targetNamespace="urn:books" 
      xmlns:bks="urn:books"> 

    <xsd:element name="books" type="bks:BooksForm"/> 

    <xsd:complexType name="BooksForm"> 
    <xsd:sequence> 
     <xsd:element name="book" 
        type="bks:BookForm" 
        minOccurs="0" 
        maxOccurs="unbounded"/> 
     </xsd:sequence> 
    </xsd:complexType> 

    <xsd:complexType name="BookForm"> 
    <xsd:sequence> 
     <xsd:element name="author" type="xsd:string"/> 
     <xsd:element name="title" type="xsd:string"/> 
     <xsd:element name="genre" type="xsd:string"/> 
     <xsd:element name="price" type="xsd:float" /> 
     <xsd:element name="pub_date" type="xsd:date" /> 
     <xsd:element name="review" type="xsd:string"/> 
    </xsd:sequence> 
    <xsd:attribute name="id"  type="xsd:string"/> 
    </xsd:complexType> 
</xsd:schema> 

Voici mon exemple Books.xml:

<?xml version="1.0" encoding="UTF-8"?> 
<!--Sample XML file generated by XMLSpy v2009 sp1 (http://www.altova.com)--> 
<bks:books xsi:schemaLocation="urn:books Untitled1.xsd" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:bks="urn:books"> 
     <book id="String"> 
       <author>String</author> 
       <title>String</title> 
       <genre>String</genre> 
       <price>3.14159E0</price> 
       <pub_date>1967-08-13</pub_date> 
       <review>String</review> 
     </book> 
</bks:books> 

Voici mon parser.pl fichier:

#!usr/bin/perl -w 

use XML::SAX::ParserFactory; 
use MyHandler; 

my $handler = MyHandler->new(); 
my $parser = XML::SAX::ParserFactory->parser(Handler => $handler); 
$parser->parse_uri("books1.xml") 

Voici mon module MyHandler.pm:

package MyHandler; 

use base qw(XML::SAX::Base); 

my $in_books = 0; 

sub start_element { 
     my ($self,$data) = @_; 
     if($data->{Name} eq 'bks:books'){ 
      $in_books++; 

     } 
} 

sub end_element { 
     my($self,$data) = @_; 
     if($data->{Name} eq 'bks:books){ 
       $in_books--; 
       print "\n"; 
     } 
} 

sub characters{ 
     my($self,$data) = @_; 
     if($in_books){ 
       print $data->{Data}; 
     } 
} 
1; 

Answer 1

Je vois deux choses qui pourraient être mal avec votre segment de code:

• Dans votre méthode start_element, vous faites référence à une variable non déclarée $in_books. Cela devrait probablement être $in_productOffering. Astuce: si vous incluez use strict; en haut de votre module, perl donnera une erreur si vous utilisez accidentellement une variable non déclarée
• Votre start_element méthode vérifie books, mais le fichier XML ne dispose que bks:books ou book éléments
• Votre script commence par #!usr/bin/perl -w, mais cela nécessite probablement une barre oblique comme troisième caractère, par exemple #! **/** usr/bin/perl -w
• L'analyseur SAX ne nécessite pas un fichier XSD

Answer 2

Il ressemble vous voulez imprimer un sous-ensemble de l'arborescence DOM. Utilisez XML::DOM. Voir aussi Why does my XSD file fail to parse with XML::LibXML?