0

XML::SAX parserを使用して Perl で XML を解析しようとしています。私の質問は、属性値の生成に関するものです。現在、タグ要素内に存在する値のみを生成できますが、私の目標は生成することです:

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

これが私のもの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>

ここに私のサンプルがあります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>

これが私のparser.plファイルです：

#!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")

これが私の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;
4

2 に答える 2

4

コード セグメントに問題がある可能性があることがいくつかわかります。

  • start_elementメソッドで、宣言されていない variable を参照しています$in_books。これはおそらく$in_productOffering. ヒント:use strict;モジュールの先頭にインクルードすると、誤って宣言されていない変数を使用すると、perl はエラーを出します。
  • start_elementメソッドは をチェックしbooksますが、XML ファイルにはbks:booksまたはbook要素しかありません
  • スクリプトは で始まりますが#!usr/bin/perl -w、これにはおそらく 3 番目の文字としてスラッシュが必要です。つまり #!**/**usr/bin/perl -w
  • SAX パーサーは XSD ファイルを必要としません
于 2009-11-16T21:09:50.533 に答える
0

DOMツリーのサブセットを印刷したいようです。XML::DOMを使用します。XSDファイルがXML::LibXMLで解析できないのはなぜですか？も参照してください。

于 2009-11-17T02:16:51.383 に答える