Foro - Perl en Español

por **luisjf** » 2011-06-15 15:00 @667

Hola, buenas tardes,

Mi caso es el siguiente: mi sistema consta de dos pantallas; una en la cual, a través de un formulario recopilo información para procesarla, y luego en la segunda se muestra un reporte.

En la primera pantalla estoy recogiendo la data de mi base de datos en MySQL con la ayuda del módulo DBI y la guardo en una variable. El problema está en que cuando el sistema va a mi pantalla de salida, el mismo requiere imprimir por pantalla una de las variables tomadas (por un select) en la primera pantalla y comúnmente esta variable está compuesta por más de una palabra (por ejemplo: "Ciudad capital").

El problema se presenta porque cuando imprimo por pantalla, solamente se muestra la primera frase (en nuestro ejemplo: "Ciudad") y no consigo el porqué de esta situación.

La recolección e impresión de dicha variable, de forma "muy reducida", la hago a través de:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $var = $form->param("namedelselect");
print "$var";
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Cualquier información con la que me puedan dar luces la sabré agradecer.

Nota: cabe resaltar que la misma información que extraigo de la base de datos y muestro en el select para que el usuario escoja la opción sí es completa. Solo en la impresión luego del "$form->param..." es que se corta dicha frase.

#!/usr/bin/perl
use CGI;
use DBI;
$dbh = DBI->connect(
    "DBI:mysql:db",
    "xxxx",
    'xxxx',
    { mysql_enable_utf8 => 1 }
    );
print "Content-Type: text/html\n\n";
print<<HTML;
<html>
<head>HEAD</head>
<body>
<form name="operar" method="post" action="/cgi-bin/salida.pl">
<select name="name">
HTML
$sth = $dbh->prepare("select name from tabla");
$sth->execute;
while(($name,$valid_id)=$sth->fetchrow())
    {
    print"<option value=$name>$name</option>"
    }
print<<HTML2;             
<input name="igual" value="Buscar" type="submit">
</form>
</body>
</html>
HTML2
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

ignorando todo el manejo del resto de la data (que he omitido). Me interesa que en la "salida.pl" el sistema muestre entre otras cosas la opción que seleccionó el usuario. El código que tengo para esa impresión es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use CGI;
#print"Content-type: text/html\n\n";
my $form = new CGI;
my $name = $form->param("name");
print $form->header;
print "<html>\n<head>\n";
print "</head>";
print "<body><p>La opción es $name</body>";
print "</html>";
exit;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

es en la impresión de esa variable donde solo muestra la primera palabra de esa opción porque en la primera pantalla, en el select, sí muestra la frase completa.

por **kidd** » 2011-06-15 16:34 @732

El problema está en el html saliente. Debes de cambiar la siguiente línea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print"<option value=$name>$name</option>"
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print"<option value=\"$name\">$name</option>"
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El problema es que como tienes ahora el html resultante te da el siguiente valor:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<option value=Ciudad capital>Ciudad capital</option>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Debido al espacio, 'capital' es tomado como un atributo html. Al hacer el cambio vamos a tener de forma correcta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<option value="Ciudad capital">Ciudad capital</option>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **luisjf** » 2011-06-16 08:35 @399

He probado la opción que me da kidd y ¡funcionó perfectamente! ¡muchas gracias, compañero! ¡Tenía tiempo sin estar en un foro tan activo y útil! ¡Muchas gracias!

Foro - Perl en Español

Error al imprimir variable Perl en HTML

Error al imprimir variable Perl en HTML

Publicidad

Re: Error al imprimir variable Perl en HTML

Re: Error al imprimir variable Perl en HTML

Re: Error al imprimir variable Perl en HTML

Re: Error al imprimir variable Perl en HTML

¿Quién está conectado?