Недействительные выбранные cookie perl

Question

У меня есть следующий скрипт perl.
Мне нужно, чтобы аннулировать все файлы cookie, которые не находятся в кеше validCookies. Обратите внимание, что это только верхняя часть моего кода, а остальные - печать всех файлов cookie в @cookieArray(), и это работает для меня.
Поскольку правильные файлы cookie устанавливаются, которые мне нужно установить вручную позже в коде. ATM, код не отменяет файлы cookie, кто-нибудь видит, почему?

use CGI qw(:standard); 
use CGI::Cookie;  


@cookieArray =(); 

#hash of cookie names that should not be set to null 
%validCookies = (cName=> 0, cAddress => 0, cCity => 0, cProvince => 0, cPostalCode => 0, cMail => 0, cDate => 0); 

%cook = CGI::Cookie->fetch; 
foreach $name ($cook){ 
if(exists ($validCookies{$name})){ 

} else { 
    $temp = CGI::Cookie->new(-name=>$name, -value =>""); 
    push(@cookieArray, $temp); 
} 
} 

Answer 1

Чтобы аннулировать файл cookie, вы должны его закончить. Следующий код заканчивает все, кроме защищенных имен файлов cookie.

Нет необходимости использовать CGI :: Cookie низкоуровневый интерфейс. Все функциональные возможности уже открыты с помощью метода cookie.

use strict; 
use warnings FATAL => 'all'; 
use CGI qw(); 
use Data::Dumper qw(Dumper); 

my %protected_names = map { $_ => undef } 
    qw(cName cAddress cCity cProvince cPostalCode cMail cDate); 

my $cgi = CGI->new; 
print $cgi->header(
    -type => 'text/plain', 
    -cookie => [ 
     map { 
      $cgi->cookie(
       -name => $_, 
       -value => (exists($protected_names{$_}) 
        ? $cgi->cookie($_) 
        : q() 
       ), 
      ) 
     } $cgi->cookie 
    ], 
); 
print Dumper [$cgi->cookie];