Buscando en Internet encontré este código para tratar un GET desde URL.
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);
foreach my $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";
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);
foreach my $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.002 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
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);
foreach my $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;
}
#Leemos el query enviado
my $buffer = $ENV{'QUERY_STRING'};
#Dividimos cada variable
my @pairs = split(/&/, $buffer);
foreach my $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.001 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á