Foro - Perl en Español

por **New_Perl** » 2010-11-10 12:32 @564

Buenas tardes.

A ver si alguien me puede echar una mano. Estoy comenzando con Perl, tanto que llevo dos días y ando bastante perdido todavía... ¡ja,ja,ja!

Tengo que acceder a una base de datos SQLite. Esta base de datos tan sólo tiene una tabla y dos campos, que es un nombre de una ciudad y un código. Lo siguiente que tengo que hacer es mostrar las ciudades en un campo select por medio de una template. Esto es lo que tengo hecho hasta ahora:

-cgi.pl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!"C:\perl\bin\perl.exe"
 
use DBI;
use CGI;
use HTML::Template;
 
$cgi = CGI->new;
$t = HTML::Template->new(filename => 'plantilla.tmpl');
$dbh = DBI->connect("dbi:SQLite:municipios.db") || die "Cannot connect: 
 
$DBI::errstr";
 
$t->param(MUNICIPIOS => $dbh->selectall_arrayref('SELECT * FROM municipios', { Slice => {} }));
 
$dbh->disconnect;
 
print $cgi->header;
print $t->output;
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

-plantilla.tmpl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
        <title>Municipios</title>
</head>
<body>
        <form action="meteo.pl" method="post">
        <select name="municipios" size="1">
        <TMPL_LOOP NAME=MUNICIPIOS>
        <option value="<TMPL_VAR NAME=codigo>"><TMPL_VAR NAME=nombre></option>
        </TMPL_LOOP>
        </select>
        <input type=submit value="Aceptar">
</body>
</html>
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Eso es lo que tengo hecho para mostrar las ciudades y poner en el value su código. Ahora lo que quiero es poder recoger en el cgi que lo procesa (meteo.pl), una variable con el código de la ciudad que haya seleccionado antes de darle al botón Aceptar, pero no sé recoger una variable de ahí. ¿Alguien me puede echar una mano?

Muchas gracias :wink:

Esta segunda forma indica exactamente qué parámetros estamos recibiendo desde el $cgi y qué parámetros se meten en la plantilla.

En cambio, la primera forma, será el propio objeto HTML::Template quien se encargue de buscar todos los parámetros que la plantilla tiene, y recuperarles desde $cgi.

Yo, por defecto, siempre uso la segunda forma, pero la primera es muy cómoda y ahorra muchísimo código.

por **New_Perl** » 2010-11-11 03:25 @184

No termina de funcionarme

Vamos a ver, en resumen, estos son mis archivos con el código:

-cgi.pl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!"C:\perl\bin\perl.exe"
 
use DBI;
use CGI;
use HTML::Template;
 
$cgi = CGI->new;
$t = HTML::Template->new(filename => 'plantilla.tmpl');
$dbh = DBI->connect("dbi:SQLite:municipios.db") || die "Cannot connect: $DBI::errstr";
 
$t->param(MUNICIPIOS => $dbh->selectall_arrayref('SELECT * FROM municipios', { Slice => {} }));
 
$dbh->disconnect;
 
print $cgi->header;
print $t->output;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

-plantilla.tmpl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
        <title>Municipios</title>
</head>
<body>
        <form action="meteo.pl" method="post">
        <select name="municipios" size="1">
        <TMPL_LOOP NAME=MUNICIPIOS>
        <option value="<TMPL_VAR NAME=codigo>"><TMPL_VAR NAME=nombre></option>
        </TMPL_LOOP>
        </select>
        <input type=submit value="Aceptar">
</body>
</html>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

-meteo.pl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!"C:\perl\bin\perl.exe"
 
use CGI;
use HTML::Template;
 
$cgi = CGI->new;
 
my $t = HTML::Template->new(filename => 'p.tmpl');
$t->param('codigo', $cgi->param('codigo'));
 
print $cgi->header;
print $t->output;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

-p.tmpl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
        <title>Municipios</title>
</head>
<body>
        <h1>El código es <TMPL_VAR NAME=codigo></h1>
</body>
</html>
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y lo que quiero es que cuando me cargue la plantilla p.tmpl, se muestre el código que elijo en el Select de la primera plantilla al darle a aceptar, pero no me sale.

Otra duda que tengo es que no sé qué diferencia hay entre crear una variable con el 'my' y sin él. Y ya, puestos a preguntar, si estos métodos son equivalentes:

$t->param('codigo', $cgi->param('codigo'));
y
$t->param(codigo => $cgi->param('codigo'));

Muchísisimas gracias por tu ayuda :wink:

¡¡Un saludo!!

por **explorer** » 2010-11-11 03:51 @202

El resultado del select se deja en el parámetro 'municipios', no 'codigo'. Fíjate bien que es 'municipios' el nombre del select.

Sería $t->param('codigo', $cgi->param('municipios'));

Recuerda que si ejecutas param() en contexto lista, obtienes la lista de todos los parámetros devueltos por el cgi:

print param();

En cuanto a lo del '=>'... bueno, sí, un '=>' sí que es igual a una ',' (de hecho, se suele llamar "supercoma"), pero no es recomendable usarlo de esa manera. Es bonito, visualmente, pero no deja de ser una coma muy gorda.

por **New_Perl** » 2010-11-11 06:48 @325

¡De acuerdo! ¡¡Problema solucionado!!

¡Muchas gracias!! ¡¡Eres una máquina!! :wink:

P.D.: ¿Qué diferencia hay entre crear una variable con el 'my' delante y sin él?

por **explorer** » 2010-11-11 07:54 @371

Con el my() declaras a la variable como local en el contexto donde te encuentres, lo cual es muy útil a la hora de crear variables que solo vas a necesitar en un trozo pequeño del código. Soluciona el problema de tener un montón de variables globales, y tener que acordarse de cómo se llamaban.

Si no pones my(), estás declarando la variable como global.

Así, por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
my $var = 'hola';
 
print "Antes [$var]\n";
 
for my $var ( 'adios', 'buenos dias', 'un saludo' ) {
 
    if ($var eq 'buenos dias') {
        my $var = 'sorpresa';
 
        print "\t\t[$var]\n";
    }
 
    print "\t[$var]\n";
 
}
 
print "Después [$var]\n";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Usamos my() en diversos puntos, para declarar la variable $var. En cada uno de ellos, es local a ese contexto (el par de llaves). Y no es conocida fuera de ese contexto.

Sin mirar la solución, más abajo, es interesante que intentes averiguarlo por ti mismo.

Más información en perldoc -f my

Solución:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Antes [hola]

        [adios]

                [sorpresa]

        [buenos dias]

        [un saludo]

Después [hola]Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Duda de tratamiento de formulario con Perl

Duda de tratamiento de formulario con Perl

Publicidad

Re: Duda de tratamiento de formulario con Perl

Re: Duda de tratamiento de formulario con Perl

Re: Duda de tratamiento de formulario con Perl

Re: Duda de tratamiento de formulario con Perl

Re: Duda de tratamiento de formulario con Perl

Re: Duda de tratamiento de formulario con Perl

Re: Duda de tratamiento de formulario con Perl

¿Quién está conectado?