Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Webprogrammeren & scripting

Perl 5: Cookies!

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.