use strict; use warnings; use XML::Simple; use Data::Dumper; use File::Slurp; ## test script to verify the way xml is parsed## ## $xmlfile is set to data of a format that would be expected to be passed to this if used in a loop ## my $xmlfile = '-1ListPerformances1433796462559TMS2015060400000157zClosing Shutdown 3D v6 - New2010010100000038zClosing Shutdown 3D v6 - New15152015-06-08T00:30:00-07:00truetrue4642015-06-08T00:30:00-07:00464falsefalsetrue696969false10false2015-06-08T00:37:44-07:00true0falsetrue2015060400000164zMorning Startup 3D v32011061100000013zMorning Startup 3D v315152015-06-08T12:10:00-07:00truetrue102015-06-08T12:10:00-07:0010falsefalsetrue696969false10false2015-06-08T12:10:10-07:00true0falsetrue2015060200000562* Movie1 3D-AV2015060800000048w23_3DP1_Sanandreas_SCCAP_0421pre_150605_02222_TMS_15152015-06-08T12:55:00-07:00truetrue81952015-06-08T12:29:18-07:009737en,en,en,en,en,en,en,en,en,enUS-G US-G US-G US-G US-G US-G US-G US-G US-G US-G falsefalsetrue696969true10false2015-06-08T15:11:35-07:00true000343929falseUS-13trueb863a576-d8a3-4f5d-92a7-b66f876f6d7cPreshow1true3D_Advertisement1a55164d0-faa7-4c7c-a688-ed36011add95Postshow12015060200000563* Movie1 3D-AV2015060600000017w23_3DP1_Sanandreas_SCCAP_0421pre_150605_02062_TMS_15152015-06-08T16:05:00-07:00truetrue81952015-06-08T15:42:13-07:009562en,en,en,en,en,en,en,en,en,enUS-G US-G US-G US-G US-G US-G US-G US-G US-G US-G falsefalsetrueFFFFFFtrue10false2015-06-08T18:21:35-07:00true000343929falseUS-13true760eb073-81f8-45cb-8553-484c5cecb740Preshow1true3D_Advertisement1a55164d0-faa7-4c7c-a688-ed36011add95Postshow1'; my $performancelist=XMLin($xmlfile, forcearray => 1, KeyAttr => {EventInfo => 'EventId'} ## #ventID is a unique value that I want to use as a key value ## ); write_file 'mydump.log', Dumper($performancelist); ## this is where nothing happens ## foreach my $performance (@{$performancelist->{MessageBody}->{ListPerformancesResponse}->{EventInfoList}->{EventInfo}->{EventId}}) { my $output=$performance->{PreshowPackList}->{PreshowPack}->{PackId}; print "Debug: $output.\n"; } #### $VAR1 = { 'xmlns' => 'http://xmlns.sony.net/d-cinema/tms-api/v1', 'MessageBody' => [ { 'ListPerformancesResponse' => [ { 'EventInfoList' => [ { 'EventInfo' => [ { 'EventEndTime' => [ '2015-06-08T00:37:44-07:00' ], 'DcpFlg' => [ 'true' ], 'EventRating' => [ {} ], 'OverlappedEventFlg' => [ 'false' ], 'ImportedShowId' => [ {} ], 'ThreeDimension' => [ 'true' ], 'EventDuration' => [ '464' ], 'RatingFlg' => [ 'true' ], 'ImportedAnalogFlg' => [ 'false' ], 'AuditoriumNo' => [ '15' ], 'SpokenLang' => [ {} ], 'SplId' => [ '2010010100000038' ], 'HavingShowFlg' => [ 'true' ], 'UncompletedShowFlg' => [ 'false' ], 'ShowStartTime' => [ '2015-06-08T00:30:00-07:00' ], 'ShowDuration' => [ '464' ], 'EventBodyColor' => [ '696969' ], 'EventStartTime' => [ '2015-06-08T00:30:00-07:00' ], 'ImportFlg' => [ 'false' ], 'EventTitle' => [ 'zClosing Shutdown 3D v6 - New' ], 'Rating' => [ {} ], 'AuditoriumId' => [ '15' ], 'WaitGPIFlg' => [ 'false' ], 'HeightPos' => [ '0' ], 'PreshowPackList' => [ {} ], 'EventId' => [ '2015060400000157' ], 'EventStatus' => [ '0' ], 'SplTitle' => [ 'zClosing Shutdown 3D v6 - New' ], 'OverlappedNum' => [ '1' ], 'SubtitleLang' => [ {} ], 'KdmFlg' => [ 'true' ] }, { 'EventEndTime' => [ '2015-06-08T12:10:10-07:00' ], 'DcpFlg' => [ 'true' ], 'EventRating' => [ {} ], 'OverlappedEventFlg' => [ 'false' ], 'ImportedShowId' => [ {} ], 'ThreeDimension' => [ 'true' ], 'EventDuration' => [ '10' ], 'RatingFlg' => [ 'true' ], 'ImportedAnalogFlg' => [ 'false' ], 'AuditoriumNo' => [ '15' ], 'SpokenLang' => [ {} ], 'SplId' => [ '2011061100000013' ], 'HavingShowFlg' => [ 'true' ], 'UncompletedShowFlg' => [ 'false' ], 'ShowStartTime' => [ '2015-06-08T12:10:00-07:00' ], 'ShowDuration' => [ '10' ], 'EventBodyColor' => [ '696969' ], 'EventStartTime' => [ '2015-06-08T12:10:00-07:00' ], 'ImportFlg' => [ 'false' ], 'EventTitle' => [ 'zMorning Startup 3D v3' ], 'Rating' => [ {} ], 'AuditoriumId' => [ '15' ], 'WaitGPIFlg' => [ 'false' ], 'HeightPos' => [ '0' ], 'PreshowPackList' => [ {} ], 'EventId' => [ '2015060400000164' ], 'EventStatus' => [ '0' ], 'SplTitle' => [ 'zMorning Startup 3D v3' ], 'OverlappedNum' => [ '1' ], 'SubtitleLang' => [ {} ], 'KdmFlg' => [ 'true' ] }, { 'EventEndTime' => [ '2015-06-08T15:11:35-07:00' ], 'DcpFlg' => [ 'true' ], 'EventRating' => [ 'US-13' ], 'OverlappedEventFlg' => [ 'false' ], 'ImportedShowId' => [ '00343929' ], 'ThreeDimension' => [ 'true' ], 'EventDuration' => [ '8195' ], 'RatingFlg' => [ 'true' ], 'ImportedAnalogFlg' => [ 'false' ], 'AuditoriumNo' => [ '15' ], 'SpokenLang' => [ 'en,en,en,en,en,en,en,en,en,en' ], 'SplId' => [ '2015060800000048' ], 'HavingShowFlg' => [ 'true' ], 'UncompletedShowFlg' => [ 'false' ], 'ShowStartTime' => [ '2015-06-08T12:29:18-07:00' ], 'ShowDuration' => [ '9737' ], 'EventBodyColor' => [ '696969' ], 'EventStartTime' => [ '2015-06-08T12:55:00-07:00' ], 'ImportFlg' => [ 'true' ], 'EventTitle' => [ '* Movie1 3D-AV' ], 'Rating' => [ 'US-G US-G US-G US-G US-G US-G US-G US-G US-G US-G ' ], 'AuditoriumId' => [ '15' ], 'WaitGPIFlg' => [ 'false' ], 'HeightPos' => [ '0' ], 'PreshowPackList' => [ { 'PreshowPack' => [ { 'FrameName' => [ 'Preshow' ], 'FrameNumber' => [ '1' ], 'PackId' => [ 'b863a576-d8a3-4f5d-92a7-b66f876f6d7c' ] }, { 'NoAssign' => [ 'true' ], 'FrameName' => [ '3D_Advertisement' ], 'FrameNumber' => [ '1' ] }, { 'FrameName' => [ 'Postshow' ], 'FrameNumber' => [ '1' ], 'PackId' => [ 'a55164d0-faa7-4c7c-a688-ed36011add95' ] } ] } ], 'EventId' => [ '2015060200000562' ], 'EventStatus' => [ '0' ], 'SplTitle' => [ 'w23_3DP1_Sanandreas_SCCAP_0421pre_150605_02222_TMS_' ], 'OverlappedNum' => [ '1' ], 'SubtitleLang' => [ {} ], 'KdmFlg' => [ 'true' ] }, { 'EventEndTime' => [ '2015-06-08T18:21:35-07:00' ], 'DcpFlg' => [ 'true' ], 'EventRating' => [ 'US-13' ], 'OverlappedEventFlg' => [ 'false' ], 'ImportedShowId' => [ '00343929' ], 'ThreeDimension' => [ 'true' ], 'EventDuration' => [ '8195' ], 'RatingFlg' => [ 'true' ], 'ImportedAnalogFlg' => [ 'false' ], 'AuditoriumNo' => [ '15' ], 'SpokenLang' => [ 'en,en,en,en,en,en,en,en,en,en' ], 'SplId' => [ '2015060600000017' ], 'HavingShowFlg' => [ 'true' ], 'UncompletedShowFlg' => [ 'false' ], 'ShowStartTime' => [ '2015-06-08T15:42:13-07:00' ], 'ShowDuration' => [ '9562' ], 'EventBodyColor' => [ 'FFFFFF' ], 'EventStartTime' => [ '2015-06-08T16:05:00-07:00' ], 'ImportFlg' => [ 'true' ], 'EventTitle' => [ '* Movie1 3D-AV' ], 'Rating' => [ 'US-G US-G US-G US-G US-G US-G US-G US-G US-G US-G ' ], 'AuditoriumId' => [ '15' ], 'WaitGPIFlg' => [ 'false' ], 'HeightPos' => [ '0' ], 'PreshowPackList' => [ { 'PreshowPack' => [ { 'FrameName' => [ 'Preshow' ], 'FrameNumber' => [ '1' ], 'PackId' => [ '760eb073-81f8-45cb-8553-484c5cecb740' ] }, { 'NoAssign' => [ 'true' ], 'FrameName' => [ '3D_Advertisement' ], 'FrameNumber' => [ '1' ] }, { 'FrameName' => [ 'Postshow' ], 'FrameNumber' => [ '1' ], 'PackId' => [ 'a55164d0-faa7-4c7c-a688-ed36011add95' ] } ] } ], 'EventId' => [ '2015060200000563' ],