Foro - Perl en Español

por **chavelito** » 2009-05-20 17:23 @766

Hola a todos, soy nuevo en este foro; recién me estoy iniciando en el mundo del Perl y tengo una duda; ¡alguien que me ayude!

Buscando en Internet encontré este código para tratar un GET desde URL.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
print"Content-type: text/html\n\n";
my(%Variables);#Iniciamos el hash
#Leemos el query enviado
my$buffer=$ENV{'QUERY_STRING'};
#Dividimos cada variable
my@pairs=split(/&/,$buffer);
foreachmy$pair(@pairs){
#Separamos la variable de su valor
my($name,$value)=split(/=/,$pair);
#Decodificamos
$name=~tr/+/ /;
$name=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value=~tr/+/ /;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#Asignamos una nueva llave al valor
$Variables{$name}=$value;
}
print"$Variables{'email'}\n";
print"$Variables{'nombre'}\n";
print"$Variables{'id'}\n";Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Lo que deseo es crear un archivo como una librería para usar el $Variables en otros Perl más que deseo hacer
y no estar escribiendo de nuevo estos códigos; algo como los require o include de PHP.

ME REFIERO A ESTA PARTE

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my(%Variables);#Iniciamos el hash
#Leemos el query enviado
my$buffer=$ENV{'QUERY_STRING'};
#Dividimos cada variable
my@pairs=split(/&/,$buffer);
foreachmy$pair(@pairs){
#Separamos la variable de su valor
my($name,$value)=split(/=/,$pair);
#Decodificamos
$name=~tr/+/ /;
$name=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value=~tr/+/ /;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#Asignamos una nueva llave al valor
$Variables{$name}=$value;
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Si su respuesta es positiva ¿funcionará también para los config de MySQL? Me refiero a si funcionará igual que un... por ejemplo, config.php de un PHP.

Gracias

muy buen foro; pienso estar mucho tiempo acá

Bienvenido a los foros de Perl en Español, chavelito.

Puedes guardar código Perl en forma de módulo. En perlmod tienes información general sobre los mismos.

Hay algunos hilos sobre el tema por aquí, como éste.

De todas formas, esa parte de código que muestras, que se refiere a la traducción de los parámetros pasados por una petición HTTP al servidor, la realiza el módulo CGI (incluido de base) de forma cómoda.

Por ejemplo, todo el primer código que has puesto se puede reducir así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use CGI ':standard';

my$cgi= CGI->new();

print$cgi->header();

my%Variables=$cgi->Vars();

print"$Variables{email }\n";
print"$Variables{nombre}\n";
print"$Variables{id    }\n";Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Incluir configuraciones, funciones, etc.

Incluir configuraciones, funciones, etc.

Publicidad

¿Quién está conectado?