Ver Tema

Gonzalojimenezroldan · 2008-09-18 19:16 @844

Tengo problemas con la recuperación de los datos (cómo los capturo), agradezco de antemano su colaboración.

La consulta es la siguiente:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

use strict;

use DBI;

my $dbuser = "maest_gonzalo";

my $dbpass = "gjr";

my $dbhost = "localhost";

my $dbname = "maest_ME3REGIS";

my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass);

my $query = $dbh->prepare( "SELECT identif FROM ME3REG" );

$query->execute();

while( my @data =  $query->fetchrow_array()  ) {

           print " DATA= @data \n ";

     }

$query->finish();

monoswim · 2008-09-18 22:07 @963

No encuentro el error en el código, siempre intenta usar algún escape ante un error, como ser:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass) || die('no se puede conectar...');

Saludos

explorer · 2008-09-19 01:59 @124

Pero, ¿estás ejecutando este proceso como un CGI desde el principio? ¿No puedes ejecutar el proceso directamente desde la línea de comandos?

Gonzalojimenezroldan · 2008-09-19 11:12 @508

No me explico como siempre te sales con la Tuya, adicione la validación a la conexión y me funciono........Gracias por tu valiosa colaboración…..

Cordial Saludo,

Gonzalo.

Publicidad

Socializa