Cgots
Es gibt mehrere Parameter, die beim Erstellen eines Cookie festgelegt werden können. Dies gilt nicht nur für Perl und CGI, sondern für alle anderen Entwicklungsumgebungen. Der einzige erforderliche Parameter, mit dem wir Cookie einstellen müssen, ist ein Cookie -Name.
Ein weiterer Parameter, der ebenfalls erwähnt werden sollte, ist ein Cookie -Ablaufdatum. Einige Browser würden nicht einmal ein Cookie ohne Ablaufdatum akzeptieren, aber hauptsächlich Kekse ohne Ablaufdatum werden akzeptiert und nur für eine aktuelle Sitzung gespeichert.
So erstellen. Verwenden Sie den folgenden Code Perl/CGI, um einen Cookie mit:
- Name: CGI-Perl-Cookie-Beispiel
- Wert: Cookie.Linuxconfig.Org
- Ablaufdatum: 1 Jahr in jetzt
#!/usr/bin/perl -t strikt; Verwenden Sie CGI QW/: Standard/; mein $ cookie = cookie (-name => 'cgi-perl-Cookie-Exampe', Value => 'Cookie.Linuxconfig.org ', -expires =>'+1y '); Druckheader (-cookie => $ cookie), start_html ('CGI Cookie mit Exipire-Datum'), P ("Cookie wurde gespeichert worden !\ n "), end_html; exit; Speichern Sie Ihren Code in/usr/lib/cgi-bin-/Ablaufdatum-Cookie.CGI und machen Sie es ausführbar:
# CHMOD 755/USR/LIB/CGI-BIN/Ablauf-Date-Cookie.CGI
Wenn mit Ihrem Browser Sie alle gespeicherten Cookies sehen können, sollten Sie in der Lage sein, Ihren eigenen Cookie zu finden. Hier ist ein Screenshot meines Keks bei der Verwendung von Firefox -Browser.
Um Ihr Cookie mit Perl/CGI abzurufen, verwenden Sie einen folgenden Code. Stellen Sie sicher, dass Sie den richtigen Cookie -Namen festlegen:
#!/usr/bin/perl -t strikt; Verwenden Sie CGI QW/: Standard/; mein $ retrieve_cookie = cookie ('cgi-perl-Cookie-Exampe'); Druckenheader, start_html, p ("Cookie Value is $ retrieve_cookie \ n"), end_html; Ausfahrt; Der folgende Code verwendet die gleichen Prinzipien beim Erstellen eines Cookies jedoch in größerem Maßstab. Beim Erstellen von Cookies müssen wir berücksichtigen, dass es eine Einschränkung von maximal 20 Cookies pro Domäne gibt. Verwenden Sie einen folgenden Code, um mehrere Cookies gleichzeitig zu erstellen. Der Code erstellt zuerst eine skalare Variable, um eine Cookies -Definitionen abzuhalten, und drucken dann einen Header mit beiden Cookies in Form von Array.
#!/usr/bin/perl -t strikt; Verwenden Sie CGI QW/: Standard/; mein $ cookie1 = cookie (-name => 'cookie_one', value => 'value1', ablehnt => '+1d'); mein $ cookie2 = cookie (-name => 'cookie_two', value => 'value2', ablehnt => '+10y'); Druckenheader (-cookie => [$ cookie1, $ cookie2]), start_html ('cgi multiple Cookie-Beispiel'), P ("Cookies empfangen!\ n "), end_html; exit; In ähnlicher Weise wird der folgende Code mehrere Cookies gleichzeitig abgerufen:
#!/usr/bin/perl -t strikt; Verwenden Sie CGI QW/: Standard/; mein $ retrieve_cookie1 = cookie ('cookie_one'); mein $ retrieve_cookie2 = cookie ('cookie_two'); Header drucken, start_html, p ("cookie_one value: $ retrieve_cookie1 \ n"), p ("cookie_two value: $ retrieve_cookie2 \ n"), end_html; Ausfahrt;