#!/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}) { 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'};
}
}
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKbXkgJGFkc3NQYXJhbXMgPSB7fTsKCm15ICRjb29raWVzID0gWwogICAgICAgIHsnbmFtZSctPnsndGVzdCd9LCAndmFsdWUnLT57J2FzZGYnfX0sCiAgICAgICAgeyduYW1lJy0+eyd0ZXN0Mid9LCAndmFsdWUnLT57J2FzZGYyJ319CiAgICAgIF07CgoKCmlmICgkY29va2llcyAmJiAocmVmICRjb29raWVzIGVxICdBUlJBWScpICYmIHNjYWxhciBAeyRjb29raWVzfSkgewogICAgZm9yZWFjaCBteSAkY29va2llIChAeyRjb29raWVzfSkgewogICAgCXByaW50ICJoaVxuIjsKICAgICAgJGFkc3NQYXJhbXMtPnsnY29va2llcyd9LT57JGNvb2tpZS0+eyduYW1lJ319ID0gJGNvb2tpZS0+eyd2YWx1ZSd9OwogICAgfQogIH0KICAKaWYgKCRjb29raWVzICYmIChyZWYgJGNvb2tpZXMgZXEgJ0FSUkFZJykgJiYgJCN7JGNvb2tpZXN9ID49IDEpIHsKICAgIGZvcmVhY2ggbXkgJGNvb2tpZSAoQHskY29va2llc30pIHsKICAgIAlwcmludCAiaGkzXG4iCiAgICAgICMgJGFkc3NQYXJhbXMtPnsnY29va2llcyd9LT57JGNvb2tpZS0+eyduYW1lJ319ID0gJGNvb2tpZS0+eyd2YWx1ZSd9OwogICAgfQp9CiAg