Free Perl Code Example - cgi simple get cookies.pm

package shazam;
#-----------------------------------------------------------------------------#
# Version: 1.0
# Copyright: Bryant H. McGill - 11c Lower Dorset Street, Dublin 1, Ireland
# Web Address: http://www.bryantmcgill.com/Shazam_Perl_Module/
# Use Terms: Free for non-commercial use, commercial use with notification.
#
# Legal: This code is provided "as is" without warranty of any kind.
# The entire risk of use remains with the recipient.
# In no event shall Bryant McGill be liable for any direct,
# consequential, incidental, special, punitive or other damages.
#-----------------------------------------------------------------------------#
sub cgi_get_cookies {
my %cookies = (); # initialize to empty list
my @cookie_split = split(/; /, $ENV{'HTTP_COOKIE'});

foreach (@cookie_split){
my($name, $value) = split(/=/, $_);
$cookies{$name} = $value;
}
return %cookies;
}
1;

More Subroutines | Shazam! Perl Module | Download Complete Module


	Clean Code for Copying package shazam; #-----------------------------------------------------------------------------# # Version: 1.0 # Copyright: Bryant H. McGill - 11c Lower Dorset Street, Dublin 1, Ireland # Web Address: http://www.bryantmcgill.com/Shazam_Perl_Module/ # Use Terms: Free for non-commercial use, commercial use with notification. # # Legal: This code is provided "as is" without warranty of any kind. # The entire risk of use remains with the recipient. # In no event shall Bryant McGill be liable for any direct, # consequential, incidental, special, punitive or other damages. #-----------------------------------------------------------------------------# sub cgi_get_cookies { my %cookies = (); # initialize to empty list my @cookie_split = split(/; /, $ENV{'HTTP_COOKIE'}); foreach (@cookie_split){ my($name, $value) = split(/=/, $_); $cookies{$name} = $value; } return %cookies; } 1;

Universal Navigator

Recent Treaty Signers

Matt Damon
Ben Affleck
George Noory
Charles Barkley
Don Cheadle
Jason Alexander
Montel Williams
Raymond "Ray" Romano
Bibi McGill
Paul Gardener, Esquire
Jim "Supermind" Karol
Halima Rashid
Susaye Greene
Chantelle Paige
Katherine Kovin Pacino

Primary Web Sites

Other McGill Projects

Future Projects

Light a Candle
Heal the World

Free Perl Code Example - cgi simple get cookies.pm

Clean Code for Copying