CGI Form
Name:
Please enter your salary ($####.##):
Please enter your birth date (mm/dd/yy):
File: index.pl
#!c:/perl/bin/perl
print "Content-type: text/html\n\n";
print <Decoding the Input Data
HTML
print "Decoding the query string";
Getting the input
$inputstring=$ENV{QUERY_STRING}};
print "Before decoding:";
print "$inputstring";
@key_value=split(/&/,$inputstring);
foreach $pair ( @key_value){
($key, $value) = split(/=/, $pair);
$value=~s/%(..)/pack("C", hex($1))/ge;
$value =~ s/\n/ /g;
$value =~ s/\r//g;
$value =~ s/\cM//g;
$input{$key}=$value ; # Creating a hash
}
print "
After decoding:
";
while(($key, $value)=each(%input)){
print "$key: $value
";
}
print <
HTML