xml sort

I am trying to sort an xml by publish date.

Initital xml is as below.

[html]

Sort XML
English

Book 1 author 1
Book 1 author 2
Book 1 title
Mar 17th 2010
Book1ISBN

Book 2 author 1
Book 2 author 2
Book 2 title
Jun 20th 2010
Book2ISBN

Book 3 author 1
Book 3 author 2
Book 3 author 3
Book 3 title
Mar 17th 2005
Book3ISBN

[/html]

Output xml should be

[html]

Sort XML
English

Book 3 author 1
Book 3 author 2
Book 3 author 3
Book 3 title
Mar 17th 2005
Book3ISBN

Book 1 author 1
Book 1 author 2
Book 1 title
Mar 17th 2010
Book1ISBN

Book 2 author 1
Book 2 author 2
Book 2 title
Jun 20th 2010
Book2ISBN

[/html]

How can i get this. I tried several methods, I did Use XML: Smiley Tongue

arser to break down the xml and get all the pubdates then sorted them, but couldn't get that right.

There is XSLT sort module which can be used to do so very easily, but XSL.pm is not available on iw-perl

Can anyone suggest me a easy way to sort this.

I even tried this snippet to dump this xml into a hash and sort it there,
here is a snippet which dumps the hash

[html]
use strict;
use XML: Smiley Frustrated

imple;
use Data&colon; Smiley Very Happy

umper;

my $booklist = XMLin('booklist.xml');

print Dumper($booklist);
[/html]

I am not sure what to do after this and how to get back my xml from this hash.

Thank You

Find more posts tagged with

Comments

Adam Stoller

I am trying to sort an xml by publish date.

[...]
How can i get this. I tried several methods, I did Use XML:arser to break down the xml and get all the pubdates then sorted them, but couldn't get that right.
[...]

If you show that code, perhaps we'll be able to figure out what you did incorrectly. However, the basic premise for sorting is pretty straight forward:

Adjust the above based on the various levels of information you need to store.

Bhargav Coca

[QUOTE=ghoti]If you show that code, perhaps we'll be able to figure out what you did incorrectly. However, the basic premise for sorting is pretty straight forward:

XML::Twig doesn't provide a date attribute at all.Thank You

jbonifaci

You are actually really close, but you need to understand the code you are trying, rather than just copying and pasting it.

You basically need a combination of the following:

[html]my @sorted= sort { $b->first_child( $field)->text
<=> $a->first_child( $field)->text }
@players;[/html]

[html]#my @sorted= sort {str2time($b) <=> str2time($a)}@players;[/html]

The first is doing sorting an array of xml nodes by locating the value of the first child element called "$field" of each node and comparing them.

The second is trying to sort an array of xml nodes by passing each node to str2time and comparing the results. Unfortunately, str2time takes in a date string and not an xml node.

You need to combine both of these lines so that you are passing a date string to str2time instead of an xml node.

Let me know if you have any questions.

Thanks!
~Jeff