X-SEO > 技術メモ > Perl > 接続 > Cookie > 情報削除

Perl

情報削除

#===========================================================================*
# プログラム名  : Cookie情報削除                                            *
# プログラムID  : ClearCookie                                               *
# 使用例        : &ClearCookie($_[0]);                                      *
#---------------------------------------------------------------------------*
# 入力引数[0]   : 変数名                                                    *
#---------------------------------------------------------------------------*
# 出力引数[0]   : Set-Cookieヘッダ                                          *
#===========================================================================*
sub ClearCookie {
    #-------------------------------*
    # 変数宣言                      *
    #-------------------------------*
    my($RtnValue)   = $_[0];        # 戻り値用変数
    #-------------------------------*
    # 処理                          *
    #-------------------------------*
    $RtnValue       = "Set-Cookie: ";
    $RtnValue       .= $_[0]."=xx; ";
    $RtnValue       .= "expires=Tue, 1-Jan-1980 00:00:00 GMT;\n";
    #-------------------------------*
    return $RtnValue;
}