Microsoft Word - Sam's Teach Yourself MySQL in 21 Days - SAMS.doc

print "\n" ;

print "\n" ;

print "\n" ;

print "\n" ;

exit 0 ;

return 1 ;

}

sub GetFormInput {

(*fval) = @ if @ ;

local ($buf);

if ($ENV{'REQUEST_METHOD'} eq 'POST') {

read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});

}

else {

$buf=$ENV{'QUERY_STRING'};

}

if ($buf eq "") {

return 0 ;

}

else {

@fval=split(/&/,$buf);

foreach $i (0 .. $#fval){

($name,$val)=split (/=/,$fval[$i],2);

$val=~tr/+/ /;

$val=~ s/%(..)/pack("c",hex($1))/ge;

$name=~tr/+/ /;