Re: Adding a hash to a hash reference.

This must be close to what you wanted (you have to observe the original data structure a little bit more carefully, see how XML::Simple use/understand things):

use strict;
use XML::Simple;

my $xs = new XML::Simple;
my $xml = $xs->XMLin("policies.xml", forcearray => 1, keyattr => ['pol
+icies']);

my $policyproperties = {
                       'name' => "1",
                       'link_name' => "2",
                       'description' => "3",
                       'date' => "4"
            };

# Add to hash
$xml->{'addedone'} = $policyproperties;
print "Content-type: text/html\n\n";

# Sort hash
#@{ $xml->{'policies'} } = sort { "\L$a->{name}" cmp "\L$b->{name}"} @
+{ $xml->{'policies'} };
use Data::Dumper;
print Dumper($xml);
$xs->XMLout($xml, outputfile => "policies1.xml", attrindent => 1);
[download]

Output:

<opt>
  <New name="Test3"
       date="28-8-104"
       description="asdf"
       link_name="Test3.doc" />
  <Newer name="Whatever"
         date="28-8-104"
         description="asdf"
         link_name="Whatever.doc" />
  <addedone name="1"
            date="4"
            description="3"
            link_name="2" />
  <policies2 name="General Admit to GPRMC"
             catagory="General"
             description=""
             link_name="General Admit to GPRMC.doc" />
</opt>
[download]

Comment on Re: Adding a hash to a hash reference. Select or Download Code

Replies are listed 'Best First'.
Re^2: Adding a hash to a hash reference. by pg (Canon) on Sep 29, 2004 at 03:23 UTC
A slightly different version that keeps root node: use strict; use XML::Simple; use Data::Dumper; my $xs = new XML::Simple("KeepRoot" => 1); my $xml = $xs->XMLin("policies.xml", forcearray => 1, keyattr => ['pol +icies']); my $new = { 'name' => "1", 'link_name' => "2", 'description' => "3", 'date' => "4" }; # Add to hash print Dumper($xml); $xml->{'policies'}->[0]->{'added'} = $new; print "Content-type: text/html\n\n"; # Sort hash #@{ $xml->{'policies'} } = sort { "\L$a->{name}" cmp "\L$b->{name}"} @ +{ $xml->{'policies'} }; print Dumper($xml); $xs->XMLout($xml, outputfile => "policies1.xml", attrindent => 1); [download] Output: `<policies> <New name="Test3" date="28-8-104" description="asdf" link_name="Test3.doc" /> <Newer name="Whatever" date="28-8-104" description="asdf" link_name="Whatever.doc" /> <added name="1" date="4" description="3" link_name="2" /> <policies2 name="General Admit to GPRMC" catagory="General" description="" link_name="General Admit to GPRMC.doc" /> </policies>` [download]	[reply] [d/l] [select]
Re^3: Adding a hash to a hash reference. by bkiahg (Pilgrim) on Sep 29, 2004 at 23:13 UTC
All off these ways overwrite the existing one. Is there a way to add so you have 2 Newer? `<Newer name="Whatever" date="28-8-104" description="asdf" link_name="Whatever.doc" /> <Newer name="1" date="4" description="3" link_name="2" />` [download]	[reply] [d/l]