use warnings; use strict; #use 5.24.1; use Data::Dumper qw(Dumper); use XML::Mini::Document; $Data::Dumper::Terse=1; my $xml_input; { local $/; $xml_input = ; } print "1********************************************\n"; print $xml_input; my $xml_object =XML::Mini::Document->new(); $xml_object->parse($xml_input); #goto END; my $hash_ref = $xml_object->toHash(); print "2********************************************\n"; print Dumper($hash_ref); my $dumped_hash=Dumper($hash_ref); my $evalled_hashdata=eval($dumped_hash); print "3********************************************\n"; print Dumper($evalled_hashdata); END: #exit; ## This will cause ->parse() to hang. ## %TEST_ROOT%\bitmaps\ __DATA__ false false false_test false test false test {0}\{1}\{2}.tile viewerConfigx.xml FI_RT #### 1******************************************** false false false_test false test false test {0}\{1}\{2}.tile viewerConfigx.xml FI_RT 2******************************************** { 'NetConfig' => { 'PhoneNumberRegex' => '', 'ViewerConfigs' => { 'ViewerConfigWrap' => { 'File' => 'viewerConfigx.xml', 'Name' => 'FI_RT' }, 'TileNamePatern' => '{0}\\{1}\\{2}.tile' }, 'InitializeStatistics_Logging' => [ 'false', 'false_test', 'false test', 'false test' ], 'UseServerTimer' => 'false' }, 'xml' => { 'version' => '1.0', 'encoding' => 'utf-8' } } 3******************************************** { 'NetConfig' => { 'PhoneNumberRegex' => '', 'UseServerTimer' => 'false', 'InitializeStatistics_Logging' => [ 'false', 'false_test', 'false test', 'false test' ], 'ViewerConfigs' => { 'TileNamePatern' => '{0}\\{1}\\{2}.tile', 'ViewerConfigWrap' => { 'File' => 'viewerConfigx.xml', 'Name' => 'FI_RT' } } }, 'xml' => { 'version' => '1.0', 'encoding' => 'utf-8' } }