Foro - Perl en Español

por **fmestre** » 2011-07-13 00:16 @052

Hola, voy a conectar Asterisk y MySQL con Perl pero tengo una falla en la conexión, ¿alguien me podría dar una mano?, la cosa se cae en el connect, si lo mando a comentario el resto del código va bien, ¿alguna idea?, Aquí dejo el código. Es un Linux CentOS.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use Asterisk::AGI;
use File::Basename;
use DBI;
use POSIX;
 
$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
 
## PRINCIPAL --------------------------------------------------------------------------
 my %input = $AGI->ReadParse();
 %MYSQL1 = (
        hostname        =>      "localhost",
        username        =>      "xxx",
        password        =>      "xxx",
        database        =>      "identidades"
 );
 
#$dbh1 = DBI->connect("dbi:mysql:$MYSQL1{database}:$MYSQL1{hostname}","$MYSQL1{username}","$MYSQL1{password}") || die("Couldn't connect to database!\n");
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl
 
use Asterisk::AGI;
use File::Basename;
use DBI;
use POSIX;
 
my $AGI = new Asterisk::AGI;
 
## PRINCIPAL --------------------------------------------------------------------------
my %input = $AGI->ReadParse();
my %MYSQL1 = (
        hostname        =>      "localhost",
        username        =>      "xxx",
        password        =>      "xxx",
        database        =>      "identidades"
);
 
my $dbh1 = DBI->connect(
    "DBI:mysql:database=$MYSQL1{database}:host=$MYSQL1{hostname}",
    $MYSQL1{username},
    $MYSQL1{password},
) or die("Couldn't connect to database! " . $DBI::errstr);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

No conecta a base de datos

No conecta a base de datos

Publicidad

Re: No conecta a base de datos

¿Quién está conectado?