######################################################
#　クッキーゲット
######################################################
#
#
sub gcook{
local($key, $val, *cook);
# クッキーを取得
$cook = $ENV{'HTTP_COOKIE'};
# 該当IDを取り出す
foreach ( split(/;/, $cook) ) {
($key, $val) = split(/=/);
$key =~ s/\s//g;
$cook{$key} = $val;
}
# データをURLデコードして復元
@cook=();
foreach ( split(/<>/, $cook{'bbs'}) ) {
s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
push(@cook,$_);
}
return (@cook);
}
exit;
#
#
######################################################