Vraag & Antwoord

Webprogrammeren & scripting

Perl 5: Cookies!

Anoniem
Annie
3 antwoorden
  • Hoe schrijf je met een Perl 5 een cookie weg en hoe haal je het weer op?
  • [code:1:b1394a0669]
    #!/usr/bin/perl -w
    # ic_cookies - sample CGI script that uses a cookie
    use CGI qw(:standard);

    use strict;

    my $cookname = "favorite ice cream";
    my $favorite = param("flavor";);
    my $tasty = cookie($cookname) || 'mint';

    unless ($favorite) {
    print header(), start_html("Ice Cookies";), h1("Hello Ice Cream";),
    hr(), start_form(),
    p("Please select a flavor: ", textfield("flavor",$tasty)),
    end_form(), hr();
    exit;
    }

    my $cookie = cookie(
    -NAME => $cookname,
    -VALUE => $favorite,
    -EXPIRES => "+2y",
    );

    print header(-COOKIE => $cookie),
    start_html("Ice Cookies, #2";),
    h1("Hello Ice Cream";),
    p("You chose as your favorite flavor `$favorite'.";);
    [/code:1:b1394a0669]

    bijvoorbeeld..
  • Deze code had ik ook in mijn boek staan, maar op een aantal servers werkt dit niet omdat er geen Perl-modules zijn geïnstalleerd op de webserver. Ik moet dus een script hebben dat cookies kan maken zonder de Perl-modules te gebruiken.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.