Re: XML::Simple / XMLout Question


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: XML::Simple / XMLout Question

by poj (Abbot)

on Aug 25, 2017 at 05:53 UTC ( [id://1197988]=note: print w/replies, xml )

Need Help??

in reply to XML::Simple / XMLout Question

Am I missing anything...

Yes, see eval but this is not the best way to build XML.

#!/usr/bin/perl
use strict;
use XML::Simple 'XMLout'; 
  
my $samstr = 'source=>[
   { abc => [
     { uname =>["USER"],
       dbcrdn=>["PWD"],
       paridn=>["XYZ"],
       osath =>["0"],
     }]  }]';
 
my $xmlstr;
eval '$xmlstr = {'.$samstr.'}'; 
print XMLout($xmlstr,RootName => "root");
[download]

poj