#! /usr/bin/perl -w
# usando módulo o librería CGI
use CGI;
use DBI;
# creando el OBJETO de tipo CGI
$q = new CGI;
# mandando servidor los encabezados de la página html
print $q->header;
print $q->start_html();
# creando una form o ventana
print $q->startform();
# creando un submit button
print $q->submit('DESPLEGAR');
# cerrando la forma
print $q->endform();
#cerrando html
print $q->end_html;
if ( $q->param('DESPLEGAR')) {
print $q->hr();
# empezando una tabla html
print "<HTML><TABLE Border=10 CellPadding=5><TR>";
# construyendo los encabezados de la tabla
print "<th bgcolor=Green>CLAVE</th><th bgcolor=White>NOMBRE</th><th bgcolor=Red>EDAD</th><th bgcolor=blue>ESTATURA</th></TR>";
# creando enlace o conexión dbh=>database handle
my $dbh = DBI->connect('DBI:mysql:mibase:localhost','root','')|| die "ERROR CONECCION : $DBI::errstr";
# preparando el query sql
# sth=>statement handle convencion mysql tambien
my $sth = $dbh->prepare('SELECT * FROM mitabla');
$sth->execute;
# ciclo de lectura de todos los renglones de la tabla
while ( my ($clave, $nombre, $edad, $estatura) = $sth->fetchrow_array() ) {
print "<TR><TD>"."$clave"."</TD><TD>"."$nombre"."</TD><TD>"."$edad"."</TD><TD>"."$estatura"."</TD></TR>";
};
# cerrando tabla, instrucción y conexión
print "</TABLE>";
$sth->finish;
$dbh->disconnect();
print $q->hr();
};
2008-04-08 00:32 @064
