Hi,

I am trying to build an XML using XMLout option. A flow of what I am doing ..

1. Build the XML string using few If and Else statement using a variable

use XML::Simple qw(XMLout);
$samstr =  source=>[{abc=>[{uname=>[$VAR1],dbcrdn=>[$VAR2],paridn=>[$V
+AR3],osath=>[$VAR4],}]
$xmlstr = "{".$samstr."}";
print XMLout($xmlstr,RootName => "root");
[download]

using the above steps it is not printing me the correct XML format....

2. Where as if I include the same string like below the XML is generated properly (Please ignore any syntax as I am regenerating the tags here and the program is running fine.)

$xmlstr = {
              source=>[{abc=>[{uname=>["USER"],dbcrdn=>["PWD"],paridn=
+>["XYZ"],osath=>["0"],}]
           }

print XMLout($xmlstr,RootName => "root");
[download]

-- Am I missing anything on procedure #1 (top). Appreciate your response very much.

Regards,
Krishna

2017-08-25 Athanasius added code and paragraph tags