X-SEO > 技術メモ > Perl > 接続 > Cookie > 情報書込

Perl

情報書込

#===========================================================================*
# プログラム名  : Cookie情報書込                                            *
# プログラムID  : SetCookie                                                 *
# 使用例        : &SetCookie($_[0],$_[1]);                                  *
#---------------------------------------------------------------------------*
# 入力引数[0]   : 変数名    : name                                          *
# 入力引数[1]   : 変数内容  : value                                         *
#---------------------------------------------------------------------------*
# 出力引数[0]   : Set-Cookieヘッダ                                          *
#===========================================================================*
sub SetCookie {
    #-------------------------------*
    # 変数宣言                      *
    #-------------------------------*
    my($RtnValue)   = "";           # 戻り値用変数
    my($Value)      = $_[1];
    my($Path)       = "/";
    #-------------------------------*
    # 処理                          *
    #-------------------------------*
    $Value          =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
    $RtnValue       = "Set-Cookie: ";
    $RtnValue       .= $_[0]."=".$Value."; ";
    $RtnValue       .= "expires=Tue, 1-Jan-2036 00:00:00 GMT; ";
    $RtnValue       .= "path=".$Path.";\n";
    #-------------------------------*
    return $RtnValue;
}