如何使用LibXML和Perl对XML条目进行排序？

Question

我正在使用LibXML解析XML文件,需要按日期对条目进行排序.每个条目都有两个日期字段,一个用于发布条目,另一个用于更新条目.

<?xml version="1.0" encoding="utf-8"?>
...
<entry>
  <published>2009-04-10T18:51:04.696+02:00</published>
  <updated>2009-05-30T14:48:27.853+03:00</updated>
  <title>The title</title>
  <content>The content goes here</content>
</entry>
...

XML文件已按更新日期排序,最新的第一个.我可以轻松地将其反转为将旧条目放在第一位:

my $parser = XML::LibXML->new();
my $doc = $parser->parse_file($file);
my $xc = XML::LibXML::XPathContext->new($doc->documentElement());

foreach my $entry (reverse($xc->findnodes('//entry'))) {
  ...
}

但是,我需要按发布日期反向排序文件,而不是按更新日期排序.我怎样才能做到这一点？时间戳看起来有点不稳定.我需要先将其标准化吗？

谢谢!

更新:在摆弄XPath命名空间并失败之后,我创建了一个解析XML并在哈希中存储我需要的值的函数.然后我用裸露sort来对哈希进行排序,现在效果很好.

Answer 1

一种方法是将您更改reverse为sort语句(未经测试):

sub parse_date {
    # Transforms date from 2009-04-10T18:51:04.696+02:00 to 20090410
    my $date= shift;
    $date= join "", $date =~ m!\A(\d{4})-(\d{2})-(\d{2}).*!;
    return $date;
}

sub by_published_date {
    my $a_published= parse_date( $a->getChildrenByTagName('published') );
    my $b_published= parse_date( $b->getChildrenByTagName('published') );

    # putting $b_published in front will ensure the descending order.
    return $b_published <=> $a_published;
}

foreach my $entry ( sort by_published_date $xc->findnodes('//entry') ) {
    ...
}

希望这个对你有帮助!