Filtrez les cookies
Affichez votre liste actuelle de cookies.
In[1]:=
![Click for copyable input](assets.fr/filter-cookies/In_87.png)
$Cookies
Out[1]=
![](assets.fr/filter-cookies/O_79.png)
Effacez la liste des cookies.
In[2]:=
![Click for copyable input](assets.fr/filter-cookies/In_88.png)
ClearCookies[All];
In[3]:=
![Click for copyable input](assets.fr/filter-cookies/In_89.png)
$Cookies
Out[3]=
![](assets.fr/filter-cookies/O_80.png)
Créez une fonction de cookie qui accepte les cookies qui n'existent que pendant la session en cours et rejette les autres. Utilisez Echo pour signaler si les cookies sont acceptés ou rejetés.
In[4]:=
![Click for copyable input](assets.fr/filter-cookies/In_90.png)
cookieFilter[cookie_Association] :=
If[cookie["ExpirationDate"] === Automatic,
SetCookies[Echo[cookie, "Accepted"]],
Echo[cookie, "Rejected: "]
]
In[5]:=
![Click for copyable input](assets.fr/filter-cookies/In_91.png)
URLRead["amazon.com", CookieFunction -> cookieFilter]
»
![](assets.fr/filter-cookies/O_81.png)
»
![](assets.fr/filter-cookies/O_82.png)
»
![](assets.fr/filter-cookies/O_83.png)
»
![](assets.fr/filter-cookies/O_84.png)
Out[5]=
![](assets.fr/filter-cookies/O_85.png)
In[6]:=
![Click for copyable input](assets.fr/filter-cookies/In_92.png)
URLRead["user.wolfram.com", CookieFunction -> cookieFilter]
»
![](assets.fr/filter-cookies/O_86.png)
»
![](assets.fr/filter-cookies/O_87.png)
Out[6]=
![](assets.fr/filter-cookies/O_88.png)
Désormais, $Cookies ne contient plus que les cookies sans date d'expiration explicite.
In[7]:=
![Click for copyable input](assets.fr/filter-cookies/In_93.png)
$Cookies
Out[7]=
![](assets.fr/filter-cookies/O_89.png)