Foro - Perl en Español

¿Por qué empieza el script con -d? ¿Eso no hace que entre directamente en modo debug?

Yo lo quitaría antes de nada...

Y después de ejecutarlo con debugger... yo no veo ningún error en pantalla...

Pon

Código: Seleccionar todo

use warnings;

después de las líneas 'use'. Verás los errores que hay en el programa...

De momento ya veo uno: No está definido por ningún sitio el objeto SD2.

Vamos a ver.... si no sale warnings es que el código, 'aparentemente' está bien.

Y lo que haces al ejecutarlo con -d es entrar en modo debug. En ese modo, Perl se PARA en la primera instrucción esperando tus próximas órdenes, y eso es justo lo que nos muestras. Pero no se vé ningún error.

No entres en modo debug A NO SER que quieras ejecutar el programa paso a paso, con puntos de ruptura o ver el contenido de las variables.

Mirando el programa con más calma, veo que hay un error también en lo siguiente: pintas el resultado de la consulta a pantalla (mejor dicho, a la página web) ANTES de haber impreso el header y el inicio de la página html.

Prueba con esta versión:

Código: Seleccionar todo

#!/usr/bin/perl
use DBI;
use CGI ':standard';
use warnings;

$dbh=DBI->connect('DBI:mysql:host=208.232.83.166:database=SistemaEscolar','root','sd2');
$co=new CGI;

$cgicontrol=$co->param("control");
$cgipassword=$co->param("password");

$control.="";
$control.=$cgicontrol;
$control.="";

$password.="";
$password.=$cgipassword;
$password.="";

print $co->header,
$co->start_html
(
title=>'Envio de datos al y desde el servidor utilizando CGI'
),
$co->center
(
$co->h1('Resultados de Log in')
),
$co->hr;

$sth=$dbh->prepare("select * from alumnos where control=$control and password=$password");
$sth->execute;

if(($control,$nombre,$password)=$sth->fetchrow())
{
 $bandera=1;
 print $co->center($co->h1('Numero de Control:'));
 print $control;
 print $co->center($co->h1('Nombre:'));
 print $nombre;
}
$sth->finish;
$dbh->disconnect;

if(!$bandera)
{ print $co->center($co->h1('No se encontro ningun usuario con esos datos'));
}

print $co->end_html;

Y NO HACE FALTA QUE CHILLES

Actualización: Faltaba una 'd' en 'standard'. Cosas del spanglish
Actualización: Cambiado SD2 a 'sd2'

1.- Si lo estás ejecutando como un CGI, añade

Código: Seleccionar todo

use CGI::Carp qw(fatalsToBrowser);

a la lista de módulos.
2.- Cambia la línea

Código: Seleccionar todo

$dbh=DBI->connect('DBI:mysql:host=208.232.83.166:database=SistemaEscolar',root,'sd2');

por

Código: Seleccionar todo

$dbh=DBI->connect('DBI:mysql:database=SistemaEscolar;host=208.232.83.166','root','sd2')
    or die $DBI::errstr;

y pruebas, a ver qué error sale...

¿Seguro que funcionan los CGI?
Usa mi CGI mínimo para comprobarlo.

Actualización: Cambiado el orden del DSN.
Actualización: Cambiado root por 'root'.