Help for this page
my %xmlData; $xmlData{'Date'}='2018-10-15'; ... $xmlData{'Depot'}{'Account'}{'Consignment'}{'Pallet'}='PID_987654'; $xmlData{'Depot'}{'Account'}{'Consignment'}{'BillUnit'}{'Type'}='QP'? $xmlData{'Depot'}{'Account'}{'Consignment'}{'BillUnit'}{'Amount'}='3';
my $xml = new XML::Simple; my $xmlout = $xml -> XMLout(\%xmlData, NoAttr => 1, RootName => 'Manif +est', KeyAttr => 'Account', NoSort => 1, SuppressEmpty => undef ); $xmlout = '<?xml version="1.0" encoding="UTF-8"?>'."\n".$xmlout;
<?xml version="1.0" encoding="UTF-8"?> <Manifest> ... <Date>[...]</Date> <Time>[...]</Time> </Manifest>