Atur dan ambil cookie menggunakan perl dan cgi

Ada beberapa parameter yang dapat diatur saat membuat cookie. Ini tidak berlaku hanya untuk Perl dan CGI tetapi untuk semua lingkungan pengembangan lainnya. Satu -satunya parameter yang diperlukan yang perlu kita atur adalah cookie adalah nama cookie.

Parameter lain yang juga harus disebutkan adalah tanggal kedaluwarsa cookie. Beberapa browser bahkan tidak akan menerima cookie tanpa tanggal kedaluwarsa tetapi sebagian besar cookie tanpa tanggal kedaluwarsa diterima dan disimpan hanya untuk sesi saat ini.

Untuk membuat cookie yang akan disimpan selama lebih dari satu sesi, kadaluwarsa cookie harus ditetapkan. Gunakan kode berikut Perl/CGI untuk membuat cookie dengan:

• Nama: CGI-Perl-Cookie-Example
• Nilai: Cookie.LinuxConfig.org
• Tanggal kedaluwarsa: 1 tahun dari sekarang

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

Simpan Kode Anda ke/Usr/Lib/CGI-Bin/Expiry-Date-Cookie.CGI dan membuatnya dapat dieksekusi:

# CHMOD 755/usr/lib/cgi-bin/kedaluwarsa-tanggal-kookie.CGI 

Jika browser Anda memungkinkan Anda untuk melihat semua cookie yang disimpan, Anda harus dapat menemukan cookie Anda sendiri. Berikut adalah tangkapan layar cookie saya saat menggunakan browser Firefox.

Untuk mengambil cookie Anda dengan Perl/CGI Gunakan kode berikut. Pastikan Anda mengatur nama cookie yang benar:

#!/usr/bin/perl -t menggunakan ketat; Gunakan CGI QW/: Standar/; $ retrieve_cookie saya = cookie ('cgi-perl-cookie-example'); cetak header, start_html, p ("Nilai cookie adalah $ retrieve_cookie \ n"), end_html; KELUAR; 

Kode berikut menggunakan prinsip yang sama untuk membuat cookie namun dalam skala yang lebih besar. Saat membuat cookie, kita perlu diingat bahwa ada batasan maksimum 20 cookie per domain. Gunakan kode berikut untuk membuat beberapa cookie secara bersamaan. Kode pertama kali membuat variabel skalar untuk memegang definisi cookie dan kemudian kami mencetak header dengan kedua cookie dalam bentuk array.

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

Demikian pula kode di bawah ini mengambil beberapa cookie sekaligus:

#!/usr/bin/perl -t menggunakan ketat; Gunakan CGI QW/: Standar/; $ retrieve_cookie1 saya = cookie ('cookie_one'); $ retrieve_cookie2 saya = cookie ('cookie_two'); cetak header, start_html, p ("Cookie_one Value: $ retrieve_cookie1 \ n"), p ("Cookie_two Nilai: $ retrieve_cookie2 \ n"), end_html; KELUAR; 

Tutorial Linux Terkait:

• Cara mengaktifkan sesi dalam php dengan cookie
• Pengantar Otomatisasi Linux, Alat dan Teknik
• Hal -hal yang harus diinstal pada ubuntu 20.04
• Cara Mengubah Kata Sandi dan Akun Opsi Kedaluwarsa di Linux…
• Mint 20: Lebih baik dari Ubuntu dan Microsoft Windows?
• Menguasai loop skrip bash
• Hal -hal yang harus dilakukan setelah menginstal ubuntu 20.04 FOSSA FOSSA Linux
• Sistem Linux Hung? Cara melarikan diri ke baris perintah dan…
• Seberapa sering Anda harus me -reboot server linux Anda?
• Loop bersarang dalam skrip bash