■ サブルーチン名
GetCookie
■ 引数
なし
■ 戻値
- Cokie情報を格納した連想配列
（key:クッキー名、value:クッキー値）
■ 使い方
%Cookie = &GetCookie;
■ サブルーチン
sub GetCookie {
my(@CookieList) = split(/\; /, $ENV{'HTTP_COOKIE'});
my(%Cookie) = ();
my($key, $CookieName, $CookieValue);
for $key (@CookieList) {
($CookieName, $CookieValue) = split(/=/, $key);
$CookieValue =~ s/\+/ /g;
$CookieValue =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
$Cookie{$CookieName} = $CookieValue;
}
return %Cookie;
}
|