クッキーのデータ取得

質問

perlでのクッキーのデータ取得の方法について、ご質問です。

まず、同一のサイトから取得した、クッキーのパスは、/の、Aというクッキーと、Bというクッキーが存在して、

Aというクッキーのコンテンツのみを、
取得したいのですが、可能なのでしょうか？

下記のスクリプトに追加すると、
どういった形式になるのでしょうか？
どなたかご教授いただけますでしょうか？

よろしくお願いいたします。

&splt;
sub splt
{
@cookdata = split(/;/,$ENV{'HTTP_COOKIE'});
foreach $tmp (@cookdata)
{
($youso,$atai) = split(/=/,$tmp);
$youso =~ s/ //;
$COOKIE{$youso} = $atai;
}
}

回答No.1

t140 · ベストアンサー

クッキーはパスごとに共通で、それ以上は分けられないはずです。
同じパスのうちで、どのファイルがどちらのコンテンツに属してるのかをｗｗｗサーバが
全て把握でもしない限り制御できませんので当然でしょう。

そこで、なんとかコンテンツ毎に取得できるように判別するしかありません。
例えば "Ａ" というコンテンツには頭に "A_" をつけるルールを自分で決める方法があります。
「例」A_id=1; A_name=taro; A_age=15

このルールを決めた上で、以下のように頭に "A_" が付くコンテンツＡの値のみを取得する感じになります。
@cookdata= grep(/^A_/, split(/;\s*/, $ENV{HTTP_COOKIE}));