Hello,

I'm using XML::Twig to manipulate my xml data and it's working fine. But I get new requirement to order my xml records. I doubt whether XML::Twig can find the correct position to add record so the data is properly ordered by "name" alphabetically OR I must add it in random position and sort it then.

This is the further coding for my last script at http://www.perlmonks.org/index.pl?node_id=719528, Thank you Tanktalus to help revise my coding.

#!/usr/bin/perl -w
use strict;
use XML::Twig;

my %links = (
             "img" => "/images/Orange_Test.jpg",
             "alt" => "Orange Test Image",
             "name" => "Orange Test Image",
             "title" => "Hello World. This is a test page. Please clic
+k here for more information.",
             "url" => "http://localhost/orange_test.htm",
             "dcr" => "/templatedata/test2123/test/orange_test",
            );
my $path = "/orange_test.htm";
my $file = "s1.xml";

my $x = XML::Twig::Elt->new(
                            record => map {
                                XML::Twig::Elt->new( $_ => $links{$_})
                            }
                            sort keys %links)
    ->set_att("path",$path);

my $twig = XML::Twig->new(pretty_print => 'indented');
if(!-s $file) {
    $twig->set_root(
                    XML::Twig::Elt->new(data => $x)
                   );
} else {
    my $item_pasted;

    $twig->setTwigHandlers(
                           {
                               record => sub {
                                   my( $twig, $record)= @_;
                                   unless ($item_pasted) {
                                       my $rpath = $record->att('path'
+);
                                       if ($rpath eq $path) {
                                           $x->replace($record);
                                           $item_pasted=1;
                                           return
                                       }
                                   }
                               },
                           }
                          );

    $twig->parsefile($file);

    $x->paste('last_child',$twig->root) unless($item_pasted);

}

{
    open (my $xfile, ">", $file) or die "Can't save to $file: $!";
    $twig->print(\*$xfile);
}
[download]

and the xml file is here:

<data>
  <record path="/blue_test.htm">
    <alt>Blue Test</alt>
    <dcr>/templatedata/test2123/test/blue_test</dcr>
    <img>/images/Blue_Test.jpg</img>
    <name>Blue Test</name>
    <title>Hello World. This is a test page. Please click here for mor
+e information.</title>
    <url>http://localhost/blue_test.htm</url>
  </record>
  <record path="/yellow_test.htm">
    <alt>Yellow Test</alt>
    <dcr>/templatedata/test2123/test/yellow_test</dcr>
    <img>/images/Yellow_Test.jpg</img>
    <name>Yellow Test</name>
    <title>Hello World. This is a test page. Please click here for mor
+e information.</title>
    <url>http://localhost/yellow_test.htm</url>
  </record>
</data>
[download]

Thank you in advance.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.