Tetapkan dan dapatkan kuki menggunakan Perl dan CGI

Terdapat pelbagai parameter yang boleh ditetapkan semasa membuat kuki. Ini tidak terpakai hanya untuk Perl dan CGI tetapi untuk semua persekitaran pembangunan lain. Satu -satunya parameter yang diperlukan yang kita perlukan untuk menetapkan kuki adalah nama kuki.

Parameter lain yang harus disebutkan adalah tarikh luput kuki. Sebilangan penyemak imbas tidak akan menerima kuki tanpa tarikh luput tetapi kebanyakannya kuki tanpa tarikh luput diterima dan disimpan untuk sesi semasa.

Untuk membuat kuki yang akan disimpan selama lebih dari satu sesi satu tamat tempoh cookie mesti ditetapkan. Gunakan kod Perl/CGI berikut untuk membuat kuki dengan:

• Nama: CGI-Perl-Cookie-Example
• Nilai: Cookie.Linuxconfig.org
• Tarikh luput: 1 tahun dari sekarang

#!/usr/bin/perl -t menggunakan ketat; Gunakan CGI QW/: Standard/; cookie $ saya = cookie (-name => 'cgi-perl-cookie-example', value => 'cookie.Linuxconfig.org ', -expires =>'+1y '); header cetak (-cookie => $ cookie), start_html ('CGI Cookie dengan tarikh exipire'), p ("Cookie telah diselamatkan !\ n "), end_html; keluar; 

Simpan kod anda ke dalam/usr/lib/cgi-bin/tamat tempoh-masak.CGI dan menjadikannya boleh dilaksanakan:

# CHMOD 755/usr/lib/cgi-bin/tamat tempoh.CGI 

Sekiranya penyemak imbas anda membolehkan anda melihat semua kuki yang disimpan, anda harus dapat mencari kuki anda sendiri. Berikut adalah tangkapan skrin kuki saya semasa menggunakan penyemak imbas Firefox.

Untuk mendapatkan kuki anda dengan Perl/CGI Gunakan kod berikut. Pastikan anda menetapkan nama kuki yang betul:

#!/usr/bin/perl -t menggunakan ketat; Gunakan CGI QW/: Standard/; saya $ pengambilan_cookie = cookie ('CGI-PERL-COOKIE-EXAMPLE'); header cetak, start_html, p ("Nilai cookie adalah $ pengambilan_cookie \ n"), end_html; keluar; 

Kod berikut menggunakan prinsip yang sama untuk membuat kuki tetapi pada skala yang lebih besar. Semasa membuat kuki, kita perlu ingat bahawa terdapat batasan maksimum 20 kuki setiap domain. Gunakan kod berikut untuk membuat pelbagai kuki secara serentak. Kod pertama mencipta pemboleh ubah skalar untuk memegang definisi kuki dan kemudian kami mencetak tajuk dengan kedua -dua kuki dalam bentuk array.

#!/usr/bin/perl -t menggunakan ketat; Gunakan CGI QW/: Standard/; my $ cookie1 = cookie (-name => 'cookie_one', value => 'value1', extires => '+1d'); my $ cookie2 = cookie (-name => 'cookie_two', value => 'value2', extires => '+10y'); header cetak (-cookie => [$ cookie1, $ cookie2]), start_html ('CGI Multiple Cookie Example'), p ("Cookies Diterima!\ n "), end_html; keluar; 

Begitu juga kod di bawah mengambil beberapa kuki sekaligus:

#!/usr/bin/perl -t menggunakan ketat; Gunakan CGI QW/: Standard/; saya $ pengambilan_cookie1 = cookie ('cookie_one'); saya $ pengambilan_cookie2 = cookie ('cookie_two'); Header Print, start_html, p ("Cookie_one Value: $ Retrieve_cookie1 \ n"), p ("Cookie_two Value: $ Retrieve_cookie2 \ n"), end_html; keluar; 

Tutorial Linux Berkaitan:

• Cara Mengaktifkan Sesi di PHP dengan Kuki
• Pengenalan kepada Automasi, Alat dan Teknik Linux
• Perkara yang hendak dipasang di Ubuntu 20.04
• Cara menukar kata laluan dan pilihan luput akaun di Linux ..
• Mint 20: Lebih baik daripada Ubuntu dan Microsoft Windows?
• Menguasai Gelung Skrip Bash
• Perkara yang perlu dilakukan setelah memasang ubuntu 20.04 Focal Fossa Linux
• Sistem Hung Linux? Cara melarikan diri ke baris arahan dan ..
• Berapa kerap anda perlu reboot pelayan Linux anda?
• Gelung bersarang dalam skrip bash