mehrere Cookies/Werte mit einem Schlag

[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