在 XML::COMPILE::SCHEMA 中附加标签或多个标签

Question

我给了一个 xsd 文件，一个 Perl 环境，只能使用 XML::LibXML , XML::SAX, XML::Compile

xsd 的相关部分是

<complexType name="property">
<attribute type="propertyvalue" name="name" use="required"/>
<attribute type="string" name="value" use="required"/>
</complexType>
<simpleType name="propertyvalue">
<restriction base="string">
<enumeration value="propertya"/>
<enumeration value="propertyb"/>
  [....some more values...]
</restriction>   
</simpleType>

我必须为每个值编写多个属性。 到目前为止，我使用的是 XML::Compile::Schema

$schema->template('PERL', $type); 
my $doc    = XML::LibXML::Document->new('1.0', 'UTF-8');
my $write  = $schema->compile(WRITER => $type, use_default_namespace => 1);
my %hash;
$hash = {
properties =>
            {
             version => 42,
             property =>
                        [ {name => "propertya",
                           value => "example",
                        }, ],
            }   
        };
my $xml= $write->($doc, $hash);
$doc->setDocumentElement($xml);    

我现在的问题是，我看不出一种方法可以如何添加多个属性标签，例如

@properties =("propertya","propertyb",[.and so on.]);
foreach my $pname (@properties){
$hash = {
          properties =>
          { 
                       version => 42,
                       property =>
                                  [ {name => $pname;
                                     value => "example",
                                  }, ],
        }   
};
my $xml= $write->($doc, $hash);
$doc->setDocumentElement($xml);
}

不会覆盖所有内容或获取文件其他部分丢失的消息。 有没有办法做到这一点，有没有办法在执行后附加标签 my $xml = $write->($doc, $hash); ?

Answer 1

您的哈希中的属性值只是一个匿名数组/数组引用。因此，您可以在 foreach 循环中简单地将属性处理为名称值对并将它们推送到数组中。然后，您只需要创建一次 xml 哈希，并为其提供对您在 foreach 循环中构建的 props 数组的引用。

use strict;
use warnings;
use Data::Dumper;

my @properties=("propertya","propertyb","propertyc");
my @props;
foreach my $pname (@properties){
        push(@props, {name=>$pname, value=>'example'});
}

my $hash = {
properties =>
            {
             version => 42,
             property => \@props
            }
};

print Dumper $hash

如您所见，该属性现在有一个属性数组。

$VAR1 = {
          'properties' => {
                            'version' => 42,
                            'property' => [
                                            {
                                              'value' => 'example',
                                              'name' => 'propertya'
                                            },
                                            {
                                              'value' => 'example',
                                              'name' => 'propertyb'
                                            },
                                            {
                                              'value' => 'example',
                                              'name' => 'propertyc'
                                            }
                                          ]
                          }
        };