Définir et récupérer un cookie en utilisant Perl et CGI

Il existe plusieurs paramètres qui peuvent être définis lors de la création d'un cookie. Cela ne s'applique pas uniquement à Perl et CGI mais à tous les autres environnements de développement. Le seul paramètre requis dont nous avons besoin pour définir le cookie est un nom de cookie.

Un autre paramètre qui doit également être mentionné est une date d'expiration des cookies. Certains navigateurs n'accepteraient même pas un cookie sans date d'expiration, mais la plupart des cookies sans date d'expiration sont acceptés et sont enregistrés pour une session en cours uniquement.

Pour créer un cookie qui sera enregistré pour plus d'une seule session, une expiration des cookies doit être définie. Utilisez le code suivant Perl / CGI pour créer un cookie avec:

• Nom: CGI-Perl-Cookie-Exemple
• Valeur: cookie.linuxconfig.org
• Date d'expiration: dans 1 an maintenant

#!/ usr / bin / perl -t utiliser strict; Utilisez CGI QW /: Standard /; My $ cookie = cookie (-name => 'cgi-perl-cookie-example', valeur => 'cookie.linuxconfig.org ', -expires =>' + 1y '); En-tête d'impression (-cookie => $ cookie), start_html ('CGI Cookie avec date exipire'), P ("Cookie avait été sauvé !\ n "), end_html; exit; 

Enregistrez votre code dans / usr / lib / cgi-bin / expiry-date-cookie.CGI et le rendre exécutable:

# CHMOD 755 / USR / LIB / CGI-BIN / EXPIRY-DATE-COOKIE.CGI 

Si votre navigateur vous permet de voir tous les cookies stockés, vous devriez pouvoir trouver votre propre cookie. Voici une capture d'écran de mon cookie lors de l'utilisation du navigateur Firefox.

Pour récupérer votre cookie avec Perl / CGI, utilisez un code suivant. Assurez-vous de définir le nom de cookie correct:

#!/ usr / bin / perl -t utiliser strict; Utilisez CGI QW /: Standard /; My $ rétrive_cookie = cookie ('cgi-perl-cookie-example'); En-tête d'impression, start_html, p ("La valeur de cookie est $ rétrient_cookie \ n"), end_html; sortie; 

Le code suivant utilise les mêmes principes de création d'un cookies mais à plus grande échelle. Lors de la création de cookies, nous devons garder à l'esprit qu'il y a une limitation de 20 cookies au maximum par domaine. Utilisez un code suivant pour créer plusieurs cookies simultanément. Le code crée d'abord une variable scalaire pour contenir des définitions de cookies, puis nous imprimons un en-tête avec les deux cookies sous forme de tableau.

#!/ usr / bin / perl -t utiliser strict; Utilisez CGI QW /: Standard /; mon $ cookie1 = cookie (-name => 'cookie_one', value => 'value1', expire => '+ 1d'); mon $ cookie2 = cookie (-name => 'cookie_two', value => 'value2', expire => '+ 10y'); En-tête d'impression (-cookie => [$ cookie1, $ cookie2]), start_html ('cgi!\ n "), end_html; exit; 

De même, le code ci-dessous récupère plusieurs cookies à la fois:

#!/ usr / bin / perl -t utiliser strict; Utilisez CGI QW /: Standard /; My $ rétrive_cookie1 = cookie ('cookie_one'); My $ rétrive_cookie2 = cookie ('cookie_two'); En-tête d'impression, start_html, p ("cookie_one value: $ rétriers_cookie1 \ n"), p ("cookie_two value: $ rétrive_cookie2 \ n"), end_html; sortie; 

Tutoriels Linux connexes:

• Comment activer les sessions en PHP avec des cookies
• Une introduction à l'automatisation Linux, des outils et des techniques
• Choses à installer sur Ubuntu 20.04
• Comment modifier les options d'expiration du mot de passe et du compte sur Linux…
• Mint 20: Mieux que Ubuntu et Microsoft Windows?
• Masterring Bash Script Loops
• Choses à faire après l'installation d'Ubuntu 20.04 Focal Fossa Linux
• Système linux hung? Comment s'échapper vers la ligne de commande et…
• À quelle fréquence devez-vous redémarrer votre serveur Linux?
• Boucles imbriquées dans les scripts bash