XML::复杂散列的简单输出元素顺序

Question

关于设置 XMLout 返回的 XML 元素的顺序，我已经在各个地方看到了很少的答案。但是，我无法使用这些答案/示例来解决问题。

我有一个脚本需要输出一些 XML 数据，并且某些元素需要按特定顺序打印。哈希非常复杂，我无法通过重写 XML::Simple 对象中的 sorted_keys 来获得任何结果。嗯，我做到了，但不是以我想要的方式。

示例代码如下，问题的详细信息位于代码下方。

#!/usr/bin/perl

use strict;
use warnings;
use XML::Simple;

package MyXMLSimple;
use base 'XML::Simple';

sub sorted_keys
{
 my ($self, $name, $hashref) = @_;
 # ... 
 return $self->SUPER::sorted_keys($name, $hashref);
}

package main;

my $xmlParser = MyXMLSimple->new;

my $items = {
 'status' => 'OK',
 'fields' => {
  'i1' => {
   'header' => 'Header 1',
   'max_size' => '3'
  },
  'i2' => {
   'header' => 'Header 2',
   'max_size' => '8'
  }
 },
 'item_list' => {
  'GGG' => {
   'index' => '3',
   'i' => 3,
   'points' => {
    'p5' => {
     'data' => '10',
    }
   },
  },
  'AAA' => {
   'index' => '1',
   'i' => 2,
   'points' => {
    'p7' => {
     'data' => '22',
    }
   },
  },
  'ZZZ' => {
   'index' => '2',
   'i' => 1,
   'points' => {
    'p6' => {
     'data' => '15',
    }
   },
  }
 }
};

my $xml = $xmlParser->XMLout($items);
print "$xml";

因此，该脚本的输出将是这样的：

<opt status="OK">
  <fields name="i1" header="Header 1" max_size="3" />
  <fields name="i2" header="Header 2" max_size="8" />
  <item_list name="AAA" i="2" index="1">
    <points name="p7" data="22" />
  </item_list>
  <item_list name="GGG" i="3" index="3">
    <points name="p5" data="10" />
  </item_list>
  <item_list name="ZZZ" i="1" index="2">
    <points name="p6" data="15" />
  </item_list>
</opt>

打印出 item_list 元素，并且通过按 name 属性排序，输出顺序按字母顺序排列。输出顺序为 AAA、GGG、ZZZ。

但是，我需要的是在 i 元素上排序（数字上，从最低到最高）时获得输出。因此输出将按 ZZZ、AAA、GGG 的顺序排列。

我无法控制哈希中的顺序（不使用 Tie::... 模块），所以我不能那样做。如果我使用 NoSort => 1，输出不会按任何特定的内容排序，所以我最终会得到随机输出。

因此，我非常确定必须有一种方法可以通过重写 sorted_keys 子例程来按照我想要的方式对此进行排序。但是，我无法获得想要的结果，因为 sorted_keys 会为 item_list 的每个实例调用。当为 opt 元素调用 sorted_keys 时，我只需访问整个哈希引用，但同样无法在不依赖 Tie::< 的情况下保证输出排序/代码> 模块。

现在，我已经设法让它按照我想要的方式工作，通过使用 Tie::IxHash 模块，然后覆盖 sorted_keys 并（重新）创建子哈希 item_list，通过将原始散列中的值重新插入到新的（有序）散列中，然后删除原始散列中的子散列，并用新的有序散列替换它。

像这样的事情：

sub sorted_keys
{
 my ($self, $name, $hashref) = @_;
 if ($name eq "opt")
 {
  my $clist = { };
  tie %{$clist}, "Tie::IxHash";

  my @sorted_keys = sort { $hashref->{item_list}->{$a}->{i} <=> $hashref->{item_list}->{$b}->{i} } keys %{$hashref->{item_list}};
  foreach my $sorted_key (@sorted_keys)
  {
   $clist->{$sorted_key} = $hashref->{item_list}->{$sorted_key};
  }

  delete $hashref->{item_list};
  $hashref->{item_list} = $clist;
 }
 return $self->SUPER::sorted_keys($name, $hashref);
}

虽然这有效（到目前为止似乎工作可靠），但我确实相信必须有一种方法可以实现这一目标，而无需使用 Tie::IxHash 模块并执行所有哈希重新创建/重新排序，并且只能通过某种方式对 sorted_keys 中的某些数据进行排序/返回。

我只是想不通，而且我真的不明白 sorted_keys 应该如何工作（特别是当您使用不同/复杂的输入数据集得到不同的结果时；），但我希望有人知道这一点。

我的意思是，我尝试修改 XML/Simple.pm 本身并更改 sorted_keys 子例程的最后一个返回行中的排序顺序，但我仍然得到按字母数字排序的输出。恐怕我不知道如何修改它，因此它不会按 name 排序，而是按 i 排序。

Answer 1

我相信此时您已经无法满足 XML::Simple 的需求了。如果您关心元素中子元素的顺序，那么是时候使用更接近 XML 的模块了。对于您想要的 XML 创建样式，可能是 XML::TreeBuilder，请查看new_from_lol 方法。或者 XML::LibXML、XML::Twig、XML::Writer...

过去我也尝试过混合 Tie::IxHash 和 XML::Simple，但效果并不好。你实际上已经走了很远了。但我相信这条路充满了疯狂

Answer 2

也许看看重写 hash_to_array ？对我来说很有效。
http://perlmaven.com/xml-simple-sorting

我想对标签键并通过重写 XML::Simple hash_to_array 来实现。我基本上复制了 XML::Simple.pm 中的方法，并对自然排序进行了一些小编辑 - 就像这样：

package MyXMLSimple;      # my XML::Simple subclass
use base 'XML::Simple';

sub hash_to_array {
  my $self    = shift;
  my $parent  = shift;
  my $hashref = shift;

  my $arrayref = [];

  my($key, $value);

  if ( $parent eq "mytag" ) {
  my @keys = $self->{opt}->{nosort} ? keys %$hashref : sort {$a<=>$b} keys %$hashref;
  foreach $key (@keys) {
    $value = $hashref->{$key};
    return($hashref) unless(UNIVERSAL::isa($value, 'HASH'));

    if(ref($self->{opt}->{keyattr}) eq 'HASH') {
      return($hashref) unless(defined($self->{opt}->{keyattr}->{$parent}));
      push @$arrayref, $self->copy_hash(
        $value, $self->{opt}->{keyattr}->{$parent}->[0] => $key
      );
    }
    else {
      push(@$arrayref, { $self->{opt}->{keyattr}->[0] => $key, %$value });
    }
  }

  } else {
  my @keys = $self->{opt}->{nosort} ? keys %$hashref : sort keys %$hashref;
  foreach $key (@keys) {
    $value = $hashref->{$key};
    return($hashref) unless(UNIVERSAL::isa($value, 'HASH'));

    if(ref($self->{opt}->{keyattr}) eq 'HASH') {
      return($hashref) unless(defined($self->{opt}->{keyattr}->{$parent}));
      push @$arrayref, $self->copy_hash(
        $value, $self->{opt}->{keyattr}->{$parent}->[0] => $key
      );
    }
    else {
      push(@$arrayref, { $self->{opt}->{keyattr}->[0] => $key, %$value });
    }
  }
  }

  return($arrayref);
}

my $xmlParser = MyXMLSimple->new(KeepRoot => 1);
$xmlParser->XMLout($self->{_xml}, KeyAttr => { ...

当然，它很丑陋，哨兵需要将“i”设置为 KeyAttr，虽然已经晚了 5 年，但它可以工作并且现在我可以去做别的事了:)