Re^5: XML File Creation in Perl

Well, if

$xml_data->{$root}{$table}{NEW2}{$key} = [$key];
[download]

is producing

<ABC>ABC</ABC>
[download]

then I'd expect

$xml_data->{$root}{$table}{NEW2}{KEY} = [$key];
[download]

to produce

<KEY>ABC</KEY>
[download]

I recommend you spend some time playing around with the features of XML::Simple. Look at how the various OPTIONS interact with each other; see what differences running in STRICT MODE makes; and so on.

-- Ken

Comment on Re^5: XML File Creation in Perl Select or Download Code

Replies are listed 'Best First'.
Re^6: XML File Creation in Perl by documents9900 (Initiate) on Apr 17, 2013 at 07:19 UTC
Thanks Ken. I will look in detailed documentation on this. Also, I agree with your point on and the same i also mentioned that it is expected. My point is If i have multiple combinations of root, table, NEW2 isn't that every time the loop runs it overwrites the old value because we are storing $key for `$xml_data->{$root}{$table}{NEW2}{KEY}` So to avoid that, i used `$xml_data->{$root}{$table}{NEW2}{$key} = [$key];` but it resulted into `<ABC>ABC</ABC> <DEF>DEF</DEF>` [download] , without this it displays only the last row with that combination in the file `<KEY>DEF</KEY>`	[reply] [d/l] [select]
Re^7: XML File Creation in Perl by kcott (Archbishop) on Apr 17, 2013 at 07:25 UTC
Instead of assigning: `$xml_data->{$root}{$table}{NEW2}{KEY} = [$key]` [download] Try pushing: `push @{$xml_data->{$root}{$table}{NEW2}{KEY}}, $key;` [download] There's a few examples of that in the code I posted earlier. -- Ken	[reply] [d/l] [select]