Ver Tema

luisjf · 2011-06-14 11:00 @500

Hola, muy buenos días.

Estoy desarrollando un pequeño sistema que va a requerir una interfaz web bastante sencilla. En este caso estoy manipulando mis datos con MySQL, y precisamente para la interfaz me ha surgido la necesidad de crear un menú desplegable (drop box) que muestre información directa de la base de datos. ¿Cuál es el método más efectivo para lograrlo o con qué herramientas cuento? ¿Lo hago con código Perl o es solo HTML? Agradecería cualquier ayuda que se me pueda prestar. Muchas gracias de antemano...

Saludos

explorer · 2011-06-14 12:49 @576

Con el módulo DBI puedes recuperar la información de la base de datos.

Luego, puedes crear el contenido de la lista desplegable, y mostrarlo dentro de la página HTML, generándolo con alguno de los muchos módulos disponibles para Perl. Yo suelo usar el módulo CGI, HTML::Template o CGI::Application (pero hay muchas más).

Depende de lo compleja que quieras que sea tu aplicación.

Con CGI, por ejemplo, con la función popup_menu() se puede generar esa lista.

Hay incluso módulos que son capaces de entender el esquema de la base de datos y mostrarlo en un formulario HTML, casi de forma directa. Lo malo es que cuesta bastante personalizar la salida.

luisjf · 2011-06-15 13:50 @618

Gracias por tu pronta respuesta, explorer; efectivamente, estuve revisando los módulos que me indicas y están muy completos, y bueno, en virtud que necesitaba algo bastante puntual y sencillo resolví haciendo estas simples líneas:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use CGI;
use DBI;
$dbh = DBI->connect( "DBI:mysql:nombredb", "xxx", 'xxx',
    { mysql_enable_utf8 => 1 } );
print "Content-Type: text/html\n\n";
<select name="nombredelselect">
$sth = $dbh->prepare("select col1 from tabla");
$sth->execute;
while ( ($col1) = $sth->fetchrow() ) {
    print "<option value=$name>$name</option>";
}
 
 

explorer · 2011-06-15 14:22 @640

Esta es mi versión:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use CGI;
use DBI;
 
# consulta a la base de datos
my $dbh = DBI->connect(
    "DBI:mysql:base_datos", 'root', 'piwuehfs1a',
    { mysql_enable_utf8 => 1 },
);
 
my $cols_ref = $dbh->selectall_arrayref('select screenName from User_');
 
# pasamos de un array de arrays, a solo un array
my @cols = map { $_->[0] } @{$cols_ref};
 
# salida
my $cgi = CGI->new();
 
print
    $cgi->header(),
    $cgi->start_html('Resultados'),
    $cgi->start_form(),
    $cgi->popup_menu(
            -name   => 'nombredelselect',
            -values => \@cols,
        ),
    $cgi->end_form(),
    $cgi->end_html(),
    ;
 

sale:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

Content-Type: text/html; charset=ISO-8859-1

<!DOCTYPE html

        PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">

<head>

<title>Resultados</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

</head>

<body>

<form method="post" action="http://localhost" enctype="multipart/form-data">

<select name="nombredelselect" >

<option value="10118">10118</option>

<option value="abadia">abadia</option>

<option value="adrianperez">adrianperez</option>

<option value="africa">africa</option>

<option value="visual">visual</option>

<option value="xtina">xtina</option>

<option value="xtranas">xtranas</option>

<option value="yeika">yeika</option>

<option value="zagales">zagales</option>

</select></form>

</body>

</html>

Publicidad

Socializa