#!/usr/bin/perl
# your code goes here
my $adssParams = {};
my $cookies = [
#{'name'->{'test'}, 'value'->{'asdf'}},
{'name'->{'test2'}, 'value'->{'asdf2'}}
];
if ($cookies && (ref $cookies eq 'ARRAY') && scalar @{$cookies} >= 1) { foreach my $cookie (@{$cookies}) {
$adssParams->{'cookies'}->{$cookie->{'name'}} = $cookie->{'value'};
}
}
if ($cookies && (ref $cookies eq 'ARRAY') && $#{$cookies} >= 1) { foreach my $cookie (@{$cookies}) {
# $adssParams->{'cookies'}->{$cookie->{'name'}} = $cookie->{'value'};
}
}
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKbXkgJGFkc3NQYXJhbXMgPSB7fTsKCm15ICRjb29raWVzID0gWwogICAgICAgICN7J25hbWUnLT57J3Rlc3QnfSwgJ3ZhbHVlJy0+eydhc2RmJ319LAogICAgICAgIHsnbmFtZSctPnsndGVzdDInfSwgJ3ZhbHVlJy0+eydhc2RmMid9fQogICAgICBdOwoKCgppZiAoJGNvb2tpZXMgJiYgKHJlZiAkY29va2llcyBlcSAnQVJSQVknKSAmJiBzY2FsYXIgQHskY29va2llc30gPj0gMSkgewogICAgZm9yZWFjaCBteSAkY29va2llIChAeyRjb29raWVzfSkgewogICAgCXByaW50ICJoaVxuIjsKICAgICAgJGFkc3NQYXJhbXMtPnsnY29va2llcyd9LT57JGNvb2tpZS0+eyduYW1lJ319ID0gJGNvb2tpZS0+eyd2YWx1ZSd9OwogICAgfQogIH0KICAKaWYgKCRjb29raWVzICYmIChyZWYgJGNvb2tpZXMgZXEgJ0FSUkFZJykgJiYgJCN7JGNvb2tpZXN9ID49IDEpIHsKICAgIGZvcmVhY2ggbXkgJGNvb2tpZSAoQHskY29va2llc30pIHsKICAgIAlwcmludCAiaGkzXG4iCiAgICAgICMgJGFkc3NQYXJhbXMtPnsnY29va2llcyd9LT57JGNvb2tpZS0+eyduYW1lJ319ID0gJGNvb2tpZS0+eyd2YWx1ZSd9OwogICAgfQp9CiAg