선택한 펄 쿠키를 무효화하십시오.

Question

다음 펄 스크립트가 있습니다.
validCookies 해시에없는 모든 쿠키를 무효화해야합니다. 이 코드는 내 코드의 윗부분에 불과하며 나머지는 @cookieArray()에있는 모든 쿠키를 인쇄하는 것으로 처리됩니다.
올바른 쿠키가 설정되어 있으므로 나중에 코드에서 수동으로 설정해야합니다. ATM 코드가 쿠키를 무효화하지 않고있는 이유는 누구입니까?

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

쿠키를 무효화하려면 쿠키를 만료시켜야합니다. 다음 코드는 보호 된 쿠키 이름을 제외하고 모두 만료됩니다.

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];