perl将xsd转换为xml

Question

现在这方面的工作了几个小时，甚至与本教程中，通过saberworks在另一个类似的问题贴出来，我没有得到它的工作...

因此，我正在尝试将.xsd文件转换为xml structures ，然后可以通过libXML或任何其他xml-parser访问并完成该xml structures 。

如果您查看链接的教程，是否可以轻松地自动进行第二步，即saberworks手动创建最终数据结构？

据我了解，他只是使用输出来获取“线索”（某种指导），以了解xml的外观。 但是是否可以生成可以由libXML使用（解析）的整个perl结构？

如果我们已经有了xml结构，那么XML::Compile/XML::LibXML处理带有可选元素的？ 如果我没有在可选元素中放置任何值或元素，它是否出现在最终的xml输出中？ 如果有的话，有什么办法可以防止这种情况发生？

use warnings;  
use strict;
use Data::Dumper;
use XML::Compile::Schema;  
use XML::LibXML;

my $xsd = 'schema.xsd';
my $schema = XML::Compile::Schema->new($xsd);
my $xml_temp = $schema -> template('PERL', 'addresses');

# ***convert $xml_temp to "real" perl hash structure***

my $doc    = XML::LibXML::Document->new('1.0', 'UTF-8'); 
my $write  = $schema -> compile(WRITER => 'addresses'); 
my $xml    = $write -> ($doc, $xml_temp);
$doc -> setDocumentElement($xml);
print $doc -> toString(1);

Answer 1

通常，您要动态生成将传递给XML编写器的数据。 为了帮助您生成正确的数据结构，template（）方法为您提供了这种数据结构的字符串表示形式以及一些有用的注释。 如果要查看最少的示例，可以使用eval将字符串转换为实际的Perl数据结构。

为简单起见，我将本教程中的示例架构包含在改编后的示例脚本中。

关于第二个问题，我假设当您的输入中没有可选元素时，它们不会放入XML中。

use strict;
use warnings;

use Data::Dumper;
use XML::Compile::Schema;  
use XML::LibXML;

my $schema = XML::Compile::Schema->new(q{<xs:schema xmlns:xs='http://www.w3.org/2001/XMLSchema'>
  <xs:element name="addresses">
    <xs:complexType>
      <xs:sequence>
        <xs:element ref="address" minOccurs='1' maxOccurs='unbounded'/>
      </xs:sequence>
    </xs:complexType>
  </xs:element>

  <xs:element name="address">
    <xs:complexType>
      <xs:sequence>
         <xs:element ref="name" minOccurs='0' maxOccurs='1'/>
         <xs:element ref="street" minOccurs='0' maxOccurs='1'/>
       </xs:sequence>
    </xs:complexType>
  </xs:element>

  <xs:element name="name" type='xs:string'/>
  <xs:element name="street" type='xs:string'/>
</xs:schema>
} );

# this returns a string representation of a sample Perl datastructure
my $template = $schema->template('PERL', 'addresses');
print "The template:\n $template\n\n";

# turn the string representation into an actual Perl data structure
my $sample;
eval "\$sample = $template;";
print "The template turned into a Perl data structure:\n";
print Dumper( $sample );
print "\n\n";

# create XML from the sample Perl data structure
my $doc    = XML::LibXML::Document->new('1.0', 'UTF-8'); 
my $write  = $schema->compile(WRITER => 'addresses'); 
my $xml    = $write->($doc, $sample);
$doc->setDocumentElement($xml);
print "The generated XML:\n";
print $doc->toString(1);
print "\n\n";