Cgots
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:
- Nombre: CGI-Perl-Cookie-Ejemplo
- Valor: galleta.LinuxConfig.organizar
- Fecha de vencimiento: 1 año a partir de ahora
#!/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;