CGI Perl

  1. Home
  2. Perl
  3. CGI
  4. Program to read cookies from the clients computer
#!perl
use CGI qw( :standard );
print header, start_html( "Read cookies" );
print "The folowing data is saved in a cookie on your ";
print "computer.

";
%cookies = readCookies(); 
print "";
foreach $cookieName ( "Name", "Height", "Color" )
{
   print "";
   print "   ";
   print "   ";
   print "";
}
print "
$cookieName$cookies{ $cookieName }
";
print end_html;
sub readCookies
{
   @cookieArray = split( "; ", $ENV{ 'HTTP_COOKIE' } );
   foreach ( @cookieArray )
   {
      ( $cookieName, $cookieValue ) = split ( "=", $_ );
      $cookieHash{ $cookieName } = $cookieValue;
   } 
   
   return %cookieHash; 
}