Acceso get / post los datos de la solicitud con perl

Acceso get / post los datos de la solicitud con perl

Acceso get / post los datos de la solicitud con perl : Multi-millones de consejos para hacer su vida mas facil.

en Este articulo se describe como acceder a los datos de un HTTP GET / POST de peticion de Web usando Perl. & nbsp

si bien hay muchos modulos de Perl (incluyendo el CPAN), que
ya contienen la funcionalidad, el codigo siguiente muestra
como extraer datos de un HTTP GET y HTTP POST a peticion, sin
cualquier dependencias externas.

sub populateQueryFields {
%queryString = ()
mi $tmpStr = $ENV{ 'QUERY_STRING' }
@partes = split( // & /, $tmpStr )
foreach $(@piezas) {
( $nombre, $valor ) = split ( / / = / , $)
$cadena{ '$nombre' } = $valor
}
}

sub populatePostFields {
%postFields = ()
read( STDIN, $tmpStr, $ENV{ 'CONTENT_LENGTH' } )
@partes = split( // & /, $tmpStr )
foreach $(@piezas) {
( $nombre, $valor ) = split( //=/, $)
$valor =' ( s/#//#/g )
$valor =' ( s//////g )
$postFields{ '$nombre' } = $valor
}
}

populateQueryFields tira todos los pares de nombre/valor desde una URL (GET
solicitud) en un hash llama %queryString. populatePostFields
extrae todos los datos de una solicitud POST (a traves de STDIN) en un hash llamado
%postFields. Ejemplos:

Dada la siguiente URL,
http://www.mydomain.com/cgi-bin/script.pl?fname=Jason & lname=Plackey

& populateQueryFields
$nombre = $cadena{ 'fname' }
$apellido = $cadena{ 'lname' }

tire de 'Jason' y 'Plackey' en $nombre y $lastName,
respectivamente.

del mismo modo, dado un formulario HTML->peticion POST,
...

& populatePostFields
$nombre = $postFields{ 'fname' }
$apellido = $postFields{ 'lname' }

Seria, una vez mas, tire de los respectivos datos introducidos a traves del HTML
la forma en la $nombre y $apellido campos.

Una nota adicional: En la populatePostFields rutina, hay
dos llamadas a s///. Estos son opcionales, y de imitar (ligeramente) la
la funcionalidad de un unEscape() o urlDecode() tipo de procedimiento. La
especifico de dos de las llamadas realizadas en la rutina anterior reemplazar '#' con un
libra (#) firmar, y '/' con una barra diagonal (/). Estos pueden ser
la alteracion de como le parezca.

Disfrute de,

Jason Plackey
el Vicepresidente de Desarrollo de Negocios
Raven2K Soluciones Integradas
http://www.raven2k.com
[email protected]