cookies - #2456 (Perl/CGI) - Perl-Community.de

jemand

2004-05-17 19:48

User since
2004-05-14
231 Artikel
BenutzerIn
[default_avatar]

jippip!!!
so gehtz:

Code: (dl )

#!Perl -w
##zusatz

use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:all/;
$q = CGI->new();

my $kekswert = readc('keks');
setc('keks', 'Dies_ist_der_kekswert', 'Keksausgabeseite', '<h1>Hallo</h1><br>der wert des kekses der von dieser seite gesetzt wurde ist:<br>'."$kekswert");

sub readc(){
  my $cname = shift;
  my $read = $q->cookie("$cname");
  return $read;
}
sub setc() {
 my $cname = shift;
 my $cvalue = shift;
  my $stitel = shift;
  my $ausg = shift;
  my $cookie = $q->cookie(-name=>"$cname",
                         -value=>"$cvalue"
                         );
  print header(-type=>'text/html',
               -cookie=>$cookie
               );
  print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 //EN">';
  print '<html>';
  print '<head><title>'."$stitel".'</title>';
  print '</head>';
  print '<body>';
  print "$ausg";
  my $end =  '</body></html>';
  print $end;
}

kann die selbe seite eigentlich mehrere cookies(mit verschiedenen namen) setzen oder immer nur einen??\n\n

print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;