#!/usr/bin/perl -Tw ## # Modified from # Figure 27.36 from _Internet & World Wide Web: How To Program_ # by H.M. Deitel, P.J. Deitel, and T.R. Nieto # Published by Prentice Hall, (c) 2000 by Prentice-Hall, Inc. ## # Fig. 27.36: read_cookies.pl # Program to read cookies from the client's computer use CGI qw/:standard/; use CGI::Carp 'fatalsToBrowser'; use diagnostics; use strict; $| = 1; print header; print << 'EOHEAD' Dietel et al. Fig. 27.36

Web-centric Computing

Some Example Code

Cookie Colour Example

The folowing data was saved in a cookie on your computer by this server:

EOHEAD ; my %cookie = readCookies(); print " \n"; print " \n"; my $cookie_name; foreach $cookie_name (keys %cookie) { print " \n"; print " \n"; print " \n"; print " \n"; } print "
NameValue
$cookie_name$cookie{$cookie_name}
\n"; print << 'EOTAIL'

[return to the form | view the source]

http://www.cs.dal.ca/~jamie/cgi-bin/3172/cookie/cookie-colour-css.cgi
Version:
25 October 2001
Course
CS 3172 (Web-centric Computing)
Prof:
J. Blustein <jamie@cs.dal.ca>

Valid XHTML 1.0! Modified from Figure 27.36 of Internet & World Wide Web: How To Program by H.M. Deitel, P.J. Deitel, and T.R. Nieto Published by Prentice Hall, ©2000 by Prentice-Hall, Inc.

EOTAIL ; sub readCookies { my @cookie_values; my %cookies = (); # initialize to empty list @cookie_values = ($ENV{'HTTP_COOKIE'}) ?split(/; /, $ENV{'HTTP_COOKIE'}) :(); foreach (@cookie_values) { my ($cookie_name, $cookie_value) = split ( /=/, $_ ); $cookies{$cookie_name} = $cookie_value; } return %cookies; }