選択したperlのクッキーを無効にします

Question

私は以下のperlスクリプトを持っています。
validCookiesハッシュに含まれていないすべてのCookieを無効にする必要があります。これは私のコードの上部のみであり、残りは@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

クッキーを無効にするには、それを期限切れにする必要があります。次のコードは、保護された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];