mehrere Cookies/Werte mit einem Schlag

[Lavender]

Hallo zusammen,

wie kann ich mehrere Cookies bzw. Werte mit einem mal setzen?

Eins habe ich bis jetzt immer so gesetzt:

use CGI;
        my $cgi = new CGI;
        $cookiename="name1";
        $cookieseting = "wert1"
        my $neuCookie = $cgi->cookie(-name=>$cookiename,
                                     -value=>$cookieseting,
                                     -expires=>'+1y',
                                     -path=>'/');
        print $cgi->header(-cookie=>$neuCookie);

Vielen Dank im Voraus.

Zum Gruße
Lavender

[eddi]

Hallo,

die Methode header() vom Objekt CGI unterstützt nur einen einzigen Cookie.

#!/usr/bin/perl -w  
  
use strict;  
use CGI;  
  
my $cgi = new CGI;  
my @cookiename   = ("name1","name2","name3");  
my @cookieseting = ("wert1","wert2","wert3");  
for(my $i=0;$i<3;$i++){  
 print "Set-Cookie: ".$cgi->cookie(-name=>$cookiename[$i],-value=>$cookieseting[$i],-expires=>'+1y',-path=>'/')."\n";  
}  
print "Content-Type: text/html; charset=iso-8859-1\n";

Gruß aus Berlin!
eddi

[eddi]

print "Content-Type: text/html; charset=iso-8859-1\n\n";

Gruß aus Berlin!
eddi

[Lavender]

Vielen Dank - hat super funktioniert :)

Gruß
Lavender

[perldoc]

To create multiple cookies, give header() an array reference:

$cookie1 = cookie(-name=>'riddle_name',
                                  -value=>"The Sphynx's Question");
        $cookie2 = cookie(-name=>'answers',
                                  -value=>%answers);
        print header(-cookie=>[$cookie1,$cookie2]);