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

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);