X-SEO > 技術メモ > Perl > 接続 > Cookie > 情報取得

Perl

情報取得

#===========================================================================*
# プログラム名  : Cookie情報取得                                            *
# プログラムID  : GetCookie                                                 *
# 使用例        : &GetCookie($_[0],$_[1]);                                  *
#---------------------------------------------------------------------------*
# 出力引数[0]   : Cookie Hash                                               *
#===========================================================================*
sub GetCookie {
    #-------------------------------*
    # 変数宣言                      *
    #-------------------------------*
    my (%Cookie);
    my ($name, $value);
    #-------------------------------*
    # 処理                          *
    #-------------------------------*
    foreach (split(/; */, $ENV{'HTTP_COOKIE'})) {
        ($name, $value)  = split(/=/, $_);
        $value           =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
        $Cookie{$name}   = $value;
    }
    #-------------------------------*
    return %Cookie;
}