クッキーにフィルタを掛ける
現在のクッキーのリストを表示する．
In[1]:=
$CookiesOut[1]=
クッキーのリストを削除する．
In[2]:=
ClearCookies[All];In[3]:=
$CookiesOut[3]=
現行セッション中にだけ存在するクッキーを許可し，残りを拒絶するクッキー関数を作成する．Echoを使って，クッキーが許可されたか，それとも拒絶されたかを報告する．
In[4]:=
cookieFilter[cookie_Association] :=
If[cookie["ExpirationDate"] === Automatic,
SetCookies[Echo[cookie, "Accepted"]],
Echo[cookie, "Rejected: "]
]In[5]:=
URLRead["amazon.com", CookieFunction -> cookieFilter]»
»
»
»
Out[5]=
In[6]:=
URLRead["user.wolfram.com", CookieFunction -> cookieFilter]»
»
Out[6]=
これで$Cookiesに，明示的な有効日を含まないクッキーだけが含まれるようになった．
In[7]:=
$CookiesOut[7]=
