,, i denne artikel beskrives, hvordan de får adgang til data fra en http få /post - web anmodning ved hjælp af perl., While there are many Perl modules available (including the CPAN) which, already contain such functionality, the following code demonstrates, how to pull data from both an HTTP GET and HTTP POST request without, any external dependencies., sub populateQueryFields {, %queryString = ();, my $tmpStr = $ENV{ "QUERY_STRING" };, @parts = split( /\\&/, $tmpStr );, foreach $part (@parts) {, ( $name, $value ) = split( /\\=/, $part );, $queryString{ "$name" } = $value;, }, }, sub populatePostFields {, %postFields = ();, read( STDIN, $tmpStr, $ENV{ "CONTENT_LENGTH" } );, @parts = split( /\\&/, $tmpStr );, foreach $part (@parts) {, ( $name, $value ) = split( /\\=/, $part );, $value =~ ( s/#/\\#/g );, $value =~ ( s///\\//g )og $postfields {"$"} = $værdi;,,, populatequeryfields trækker alle navn /værdi par fra en url (kom, anmode) i en hash, kaldet% querystring.populatepostfields, trækker alle data fra post - anmodning (via stdin) i en hash,% postfields.eksempler: i betragtning af følgende url,,http://www.mydomain.com/cgi-bin/script.pl?fname=Jason&lname=Plackey, &populateQueryFields;, $firstName = $queryString{ "fname" };, $lastName = $queryString{ "lname" };, Would pull "Jason" and "Plackey" into $firstName and $lastName,, respectively., Similarly, given an HTML form->POST request,, ..., <FORM ACTION="../cgi-bin/script.pl" METHOD="POST">, <INPUT TYPE="TEXT" NAME="fname">, <INPUT TYPE="TEXT" NAME="lname">, ..., </FORM>, &populatePostFields;, $firstName = $postFields{ "fname" };, $lastName = $postFields{ "lname" };, Would, once again, pull the respective data entered via the HTML, form into the $firstName and $lastName fields., One additional note: In the populatePostFields routine, there are, two calls to s///. det er frivilligt, og efterligner (let), funktioner af en unescape() eller urldecode() type procedure.de specifikke to opkald i den løbende over erstatte "% 23," med en "(#) tegn, og"% 2f "med en frem skråstreg (» /«).disse kan være ændret, som du vil. nyd, jason plackey, næstformand for virksomhedernes udvikling, raven2k integrerede løsningerhttp://www.raven2k.com, [email protected],