use CGI qw(:standard); use strict; use CGI qw(:standard); my $name=$ENV{'REMOTE_ADDR'}; my $to_set = cookie(-name => "Testcookie", -value => $name, -expires => "+300s", -path=>"/"; ); header(-cookie => $to_set), start_html("Thanks!"), h1("Danke schön, das Cookie wurde gesetzt"), p("Es wurde gesetzt auf: ", $name, " und wird gespeichert für 300 Sekunden "), end_html(); |
use CGI qw(:standard); $name = cookie("Testcookie"); header(), start_html("Erkenne IP: $name"), h1("Hallo " . $name || "Fremder"); if ($name) { print p("Ich hab Sie also wiedererkannt!"); } else { print p("Das Cookie ist wohl abgelaufen."); } print end_html(); |