Free Perl Code Example - cgi url decode.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_url_decode {
  shift() if ref($_[0]);
  my $todecode = shift;
  return undef unless defined($todecode);
  $todecode =~ tr/+/ /; # pluses become spaces
  $todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
  return $todecode;
}
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_url_decode { shift() if ref($_[0]); my $todecode = shift; return undef unless defined($todecode); $todecode =~ tr/+/ /; # pluses become spaces $todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge; return $todecode; } 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 url decode.pm

Clean Code for Copying