0

情况

编辑 XML 并成功更改值后，我需要将更改写回文件。但是，当我这样做时，具有两个属性 (a) date_time 和 (b) xmlns:xsi 的 XML 的第一个标记在 uodate 之后被切换。

以下是 XML 的示例：

XML 文档示例

原始 XML 

<?xml version="1.0" encoding="UTF-8"?>
<basenet date_time="201202131140" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"     >
<msg_ver>01</msg_ver>
<sender_id>1234</sender_id>
<recipient_id>Bob</recipient_id> 
</basenet>

输出

<?xml version="1.0" encoding="UTF-8"?>
<tradenet xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"     date_time="201202131140">
<msg_ver>01</msg_ver>
<sender_id>1234</sender_id>
<recipient_id>Bob</recipient_id> 
</tradenet>

编码

 sub CHANGE_DATE_SEQ_NUM()
  {

# load
open my $fh, '<', $newfile;
binmode $fh; # drop all PerlIO layers possibly created by a use open pragma
my $doc = XML::LibXML->load_xml(IO => $fh);

    my $query  = "/tradenet/message/header/unique_ref_no/date/text( )";
    my $query2  = "/tradenet/message/header/unique_ref_no/seq_no/text( )";
    my $query3  = "/tradenet/message/transport/out_tpt/dept_date/text( )";
    #print $query3;

    my($node)   = $doc->findnodes($query);
    my($node2)  = $doc->findnodes($query2);
    my($node3)  = $doc->findnodes($query3);


        $node->setData("$date");
        $node2->setData("$file_seq_number");
        $node3->setData("$date");


             # save
         open my $out, '>', $newfile;
         binmode $out; # as above
         $doc->toFH($out);
   }

我的问题 为什么标签中的 date_time 和 xmlns:xsi 会被切换？该开关导致我的 XML 在我的服务器端验证失败。

谢谢你的时间。

4

1 回答 1

1

属性顺序在 XML 中是没有意义的，所以错误在您的验证代码中。

XML::LibXML 或底层 libxml2 保留顺序的效率可能会降低，所以他们没有这样做，因为没有理由这样做。属性可能存储在哈希表中。

于 2012-05-03T02:56:37.230 回答