Sin categoría

Establezca y recupere una cookie con Perl y CGI

Establezca y recupere una cookie con Perl y CGI

Hay múltiples parámetros que se pueden configurar al crear una cookie. Esto no se aplica solo a Perl y CGI, sino a todos los demás entornos de desarrollo. El único parámetro requerido con el que necesitamos establecer cookie es un nombre de cookie.

Otro parámetro que también debe mencionarse es una fecha de vencimiento de cookies. Algunos navegadores ni siquiera aceptarían una cookie sin fecha de vencimiento, pero en su mayoría cookies sin fecha de vencimiento se aceptan y se guardan solo para una sesión actual.

Para crear una cookie que se guardará para más de una sola sesión, se debe establecer una expiración de cookies. Use el siguiente código PERL/CGI para crear una cookie con:

#!/usr/bin/perl -t usa estricto; use CGI QW/: Standard/; my $ cookie = cookie (-name => 'cgi-perl-cookie-exame', valor => 'cookie.LinuxConfig.org ', -eexpires =>'+1y '); encabezado de impresión (-cookie => $ cookie), start_html ('cookie cgi con fecha de exipire'), p ("Cookie se había guardado !\ n "), end_html; salir; 

Guarde su código en/usr/lib/cgi-bin/expiry-date-cookie.CGI y hacerlo ejecutable:

# CHMOD 755/usr/lib/cgi-bin/expiry-date-cookie.CGI 

Si su navegador le permite ver todas las galletas almacenadas, debería poder encontrar su propia galleta. Aquí hay una captura de pantalla de mi galleta cuando se usa el navegador Firefox.

Para recuperar su cookie con Perl/CGI, use un código siguiente. Asegúrese de establecer el nombre correcto de la cookie:

#!/usr/bin/perl -t usa estricto; use CGI QW/: Standard/; mi $ REMPRIEVE_COOKIE = Cookie ('CGI-Perl-Cookie-EXample'); Encabezado de impresión, inicio_html, P ("El valor de la cookie es $ RomEntieve_Cookie \ n"), end_html; salida; 

El siguiente código utiliza los mismos principios para crear cookies, sin embargo, a mayor escala. Al crear cookies, debemos tener en cuenta que hay una limitación del máximo de 20 cookies por dominio. Use un código siguiente para crear múltiples cookies simultáneamente. El código primero crea una variable escalar para mantener las definiciones de cookies y luego imprimimos un encabezado con ambas cookies en forma de matriz.

#!/usr/bin/perl -t usa estricto; use CGI QW/: Standard/; my $ cookie1 = cookie (-name => 'cookie_one', value => 'value1', expires => '+1d'); my $ cookie2 = cookie (-name => 'cookie_two', value => 'value2', expires => '+10y'); encabezado de impresión (-cookie => [$ cookie1, $ cookie2]), start_html ('ejemplo de cookie múltiple cgi'), p ("Cookies recibidas!\ n "), end_html; salir; 

Del mismo modo, el código a continuación recupera múltiples cookies a la vez:

#!/usr/bin/perl -t usa estricto; use CGI QW/: Standard/; my $ Remieve_cookie1 = Cookie ('Cookie_one'); my $ Remieve_cookie2 = cookie ('cookie_two'); Encabezado de impresión, inicio_html, p ("Valor Cookie_one: $ Remieve_cookie1 \ n"), P ("Cookie_Two Value: $ Remieve_cookie2 \ n"), end_html; salida; 
Envío de formulario HTML automático utilizando wwwMechanize
Aquí hay un breve consejo sobre cómo enviar automáticamente un formulario HTML usando una línea de comandos de Linux y un script Perl. Para este ejemp...
Cómo hacer que wdiddle3 establezca un temporizador iddle para la unidad WD Ears
Aquí hay pasos fáciles de seguir sobre cómo deshabilitar y establecer un temporizador para el estacionamiento para la cabeza con WD Ears Drive. Para h...
Hora su descarga fuera de pico con el comando en Linux
No todos tienen una descarga ilimitada de Internet. A veces, Internet proporciona horas máximas y apagadas y apenas es que alguien se quede despierto ...