Non catégorisé

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

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:

#!/ 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; 
Perl - CGI - Formulaire Soumettre l'exemple
L'exemple de formulaire Perl / CGI suivant demande à un utilisateur de saisir deux entiers et sur la soumission, un ajout est effectué sur les deux en...
Page chmod- manuelle
Nom Chmod - Modifier les bits de mode de fichier Synopsis Chmod [Option]… Mode [, mode]… Fichier… Chmod [Option]… Fichier en mode octal… Chmod [Option...
CP- Page manuelle
Nom CP - Copier les fichiers et répertoires Synopsis CP [Option]… [-T] Source dest CP [Option]… Source… répertoire CP [Option]… -T Source du répertoir...