my @bucketList = $_xmlData->{Bucket};
open(DEBUG, ">bucketList.txt");
print DEBUG Dumper(@bucketList);
close(DEBUG);
foreach my $bucket ( @bucketList )
{
open(DEBUG, ">bucket.txt");
print DEBUG Dumper($bucket);
close(DEBUG);
}
####
$VAR1 = [
{
'ExeVersion' => NDA_BLOCKED,
'ModuleVersion' => NDA_BLOCKED,
'ResponseStatus' => NDA_BLOCKED,
'ExeName' => NDA_BLOCKED,
'Priority' => NDA_BLOCKED,
'TotalHits' => NDA_BLOCKED,
'ResponseURL' => NDA_BLOCKED,
'ModuleName' => NDA_BLOCKED,
'BucketID' => NDA_BLOCKED'
},
{
'ExeVersion' => NDA_BLOCKED,
'ModuleVersion' => NDA_BLOCKED,
'ResponseStatus' => NDA_BLOCKED,
'ExeName' => NDA_BLOCKED,
'Priority' => NDA_BLOCKED,
'TotalHits' => NDA_BLOCKED,
'ResponseURL' => NDA_BLOCKED,
'ModuleName' => NDA_BLOCKED,
'BucketID' => NDA_BLOCKED'
},
{
'ExeVersion' => NDA_BLOCKED,
'ModuleVersion' => NDA_BLOCKED,
'ResponseStatus' => NDA_BLOCKED,
'ExeName' => NDA_BLOCKED,
'Priority' => NDA_BLOCKED,
'TotalHits' => NDA_BLOCKED,
'ResponseURL' => NDA_BLOCKED,
'ModuleName' => NDA_BLOCKED,
'BucketID' => NDA_BLOCKED'
}]
####
$VAR1 = [
{
'ExeVersion' => NDA_BLOCKED,
'ModuleVersion' => NDA_BLOCKED,
'ResponseStatus' => NDA_BLOCKED,
'ExeName' => NDA_BLOCKED,
'Priority' => NDA_BLOCKED,
'TotalHits' => NDA_BLOCKED,
'ResponseURL' => NDA_BLOCKED,
'ModuleName' => NDA_BLOCKED,
'BucketID' => NDA_BLOCKED'
},
{
'ExeVersion' => NDA_BLOCKED,
'ModuleVersion' => NDA_BLOCKED,
'ResponseStatus' => NDA_BLOCKED,
'ExeName' => NDA_BLOCKED,
'Priority' => NDA_BLOCKED,
'TotalHits' => NDA_BLOCKED,
'ResponseURL' => NDA_BLOCKED,
'ModuleName' => NDA_BLOCKED,
'BucketID' => NDA_BLOCKED'
},
{
'ExeVersion' => NDA_BLOCKED,
'ModuleVersion' => NDA_BLOCKED,
'ResponseStatus' => NDA_BLOCKED,
'ExeName' => NDA_BLOCKED,
'Priority' => NDA_BLOCKED,
'TotalHits' => NDA_BLOCKED,
'ResponseURL' => NDA_BLOCKED,
'ModuleName' => NDA_BLOCKED,
'BucketID' => NDA_BLOCKED'
}]