Defina e recupere um cookie usando Perl e CGI

Existem vários parâmetros que podem ser definidos ao criar um cookie. Isso não se aplica apenas a Perl e CGI, mas a todos os outros ambientes de desenvolvimento. O único parâmetro necessário com o qual precisamos definir cookie é um nome de biscoito.

Outro parâmetro que também deve ser mencionado é uma data de validade de biscoitos. Alguns navegadores nem aceitariam um cookie sem data de validade, mas principalmente cookies sem data de validade são aceitos e são salvos apenas para uma sessão atual.

Para criar um cookie que será salvo para mais de uma única sessão, uma expiração de cookies deve ser definida. Use o seguinte código Perl/CGI para criar um cookie com:

• Nome: CGI-PERL-Cookie-Exemplo
• Valor: Cookie.LinuxConfig.org
• Data de expiração: 1 ano daqui a

#!/usr/bin/perl -t use strict; Use CGI QW/: Standard/; meu $ cookie = cookie (-name => 'cgi-perl-cookie-expler', value => 'cookie.LinuxConfig.org ', -expires =>'+1y '); Cabeçalho de impressão (-cookie => $ cookie), start_html ('biscoito cgi com data exipire'), p ("Cookie foi salvo !\ n "), end_html; saída; 

Salve seu código em/usr/lib/cgi-bin/expiry-date-cookie.CGI e torne -o executável:

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

Se o seu navegador permitir que você veja todos os cookies armazenados, você poderá encontrar seu próprio cookie. Aqui está uma captura de tela do meu biscoito ao usar o Firefox Browser.

Para recuperar seu cookie com Perl/CGI, use um código seguinte. Certifique -se de definir o nome correto do cookie:

#!/usr/bin/perl -t use strict; Use CGI QW/: Standard/; meu $ recuvie_cookie = cookie ('cgi-perl-cookie-expler'); Cabeçalho de impressão, start_html, p ("O valor do cookie é $ recuperado_cookie \ n"), end_html; saída; 

O código a seguir usa os mesmos princípios de criação de cookies, no entanto, em maior escala. Ao criar um cookies, precisamos ter em mente que há uma limitação de máximo de 20 cookies por domínio. Use um código a seguir para criar vários cookies simultaneamente. O código primeiro cria uma variável escalar para manter as definições de cookies e depois imprimimos um cabeçalho com os dois cookies em forma de matriz.

#!/usr/bin/perl -t use strict; Use CGI QW/: Standard/; meu $ cookie1 = cookie (-name => 'cookie_one', value => 'value1', expire => '+1d'); meu $ cookie2 = cookie (-name => 'cookie_two', value => 'value2', expire => '+10y'); Cabeçalho de impressão (-cookie => [$ cookie1, $ cookie2]), start_html ('cgi múltiplo biscoito exemplo'), p ("cookies recebidos!\ n "), end_html; saída; 

Da mesma forma, o código abaixo recupera vários cookies de uma só vez:

#!/usr/bin/perl -t use strict; Use CGI QW/: Standard/; meu $ recuvie_cookie1 = cookie ('cookie_one'); meu $ recuvie_cookie2 = cookie ('cookie_two'); Cabeçalho de impressão, start_html, p ("cookie_one Valor: $ retriege_cookie1 \ n"), p ("cookie_two valor: $ recuere_cookie2 \ n"), end_html; saída; 

Tutoriais do Linux relacionados:

• Como ativar sessões no PHP com cookies
• Uma introdução à automação, ferramentas e técnicas do Linux
• Coisas para instalar no Ubuntu 20.04
• Como alterar as opções de expiração de senha e conta no Linux…
• Mint 20: Melhor que o Ubuntu e o Microsoft Windows?
• Mastering Bash Script Loops
• Coisas para fazer depois de instalar o Ubuntu 20.04 fossa focal linux
• Sistema Linux Hung? Como escapar para a linha de comando e…
• Com que frequência você tem que reiniciar seu servidor Linux?
• Loops aninhados em scripts de basquete