Foro - Perl en Español

por **Marvin** » 2012-04-08 17:41 @778

Hola, foro,
Hace días estoy intentando de resolver este error:

NOTICE: SELECT dbi_link.set_up_connection(
'dbi:mysql:database=webdb;host=192.168.1.106;port=3306',
'root',
'root',
'---
AutoCommit: 1
RaiseError: 1
',
NULL,
NULL,
NULL,
'webdb'
)
NOTICE: SELECT count(*) AS "driver_there"
FROM dbi_link.available_drivers()
WHERE 'dbi:mysql:database=webdb;host=192.168.1.106;port=3306' like '%' || available_drivers || '%'

CONTEXTO: sentencia SQL: «SELECT dbi_link.set_up_connection(
'dbi:mysql:database=webdb;host=192.168.1.106;port=3306',
'root',
'root',
'---
AutoCommit: 1
RaiseError: 1
',
NULL,
NULL,
NULL,
'webdb'
)
»
NOTICE: Warning: something's wrong at line 43.

CONTEXTO: sentencia SQL: «SELECT dbi_link.set_up_connection(
'dbi:mysql:database=webdb;host=192.168.1.106;port=3306',
'root',
'root',
'---
AutoCommit: 1
RaiseError: 1
',
NULL,
NULL,
NULL,
'webdb'
)
»
Resultado de la consulta con 1 filas descartadas.

ERROR: error en la función de Perl «make_accessor_functions»: error en la función de Perl «set_up_connection»: DBI connect('database=webdb;host=192.168.1.106;port=3306','root',...) failed: Can't connect to MySQL server on '192.168.1.106' (13) at line 44 at line 35.

********** Error **********

ERROR: error en la función de Perl «make_accessor_functions»: error en la función de Perl «set_up_connection»: DBI connect('database=webdb;host=192.168.1.106;port=3306','root',...) failed: Can't connect to MySQL server on '192.168.1.106' (13) at line 44 at line 35.
Estado SQL:XX000

Esta es la invocación de la función que arroja el error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using sql Syntax Highlighting

SELECT make_accessor_functions(
    'dbi:mysql:database=webdb;host=192.168.1.106;port=3306',
    'root',
    'root',
    '---
AutoCommit: 1
RaiseError: 1
',
NULL,
    NULL,
    NULL,
    'webdb'
);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Soy nuevo en Perl, me estrené con esta herramienta de PostgreSQL: DBI-Link. Bueno, esta función es llamada desde otra función (como se ve en el error) pero la línea exacta del error es 46. A continuación la función:

Sintáxis: [ Descargar ] [ Ocultar ]

Using sql Syntax Highlighting

CREATE OR REPLACE FUNCTION dbi_link.set_up_connection(data_source dbi_link.data_source, user_name text, auth text, dbh_attributes dbi_link.yaml, dbi_connection_environment dbi_link.yaml, remote_schema text, remote_catalog text, local_schema text)
  RETURNS integer AS
$BODY$
 
spi_exec_query('SELECT dbi_link.dbi_link_init()');
 
my ($params, $quoted);
foreach my $param (qw(data_source user_name auth dbh_attributes
    dbi_connection_environment remote_schema remote_catalog
    local_schema)) {
    $params->{ $param } = shift;
    IF ( defined $params->{ $param } ) {
        $quoted->{ $param } = $_SHARED{quote_literal}->(
            $params->{ $param }
        );
    }
    else {
        $quoted->{ $param } = 'NULL';
    }
}
 
my $driver = $_SHARED{quote_literal}->(
    $params->{data_source}
);
 
#my $sql = <<SQL;
#SELECT count(*) AS "driver_there"
#FROM dbi_link.available_drivers()
#WHERE available_drivers = $driver
#SQL
 
my $sql = <<SQL;
SELECT count(*) AS "driver_there"
FROM dbi_link.available_drivers()
WHERE $driver LIKE '%' || available_drivers || '%'
SQL
 
warn $sql IF $_SHARED{debug};
my $driver_there = spi_exec_query($sql);
IF ($driver_there->{processed} == 0) {
    die "Driver $driver is not available.  Can't look at database."
}
 
my $attr_href = LOAD($params->{dbh_attributes});
warn $dbh IF $_SHARED{debug};
my $dbh = DBI->connect(
    $params->{data_source},
    $params->{user_name},
    $params->{auth},
    $attr_href,
);
 
IF ($DBI::errstr) {
    die <<ERR;
Could NOT connect TO DATABASE
DATA source: $params->{data_source}
user: $params->{user_name}
password: $params->{auth}
dbh attributes:
$params->{dbh_attributes}
 
$DBI::errstr
ERR
}
 
my @methods = qw(table_info column_info quote);
foreach my $method (@methods) {
    warn "Checking whether $driver has $method..." IF $_SHARED{debug};
    IF ($dbh->can($method)) {
        warn "$driver has $method <img src="http://perlenespanol.com/foro/images/smilies/icon_smile.gif" alt=":)" title="Smile" />" IF $_SHARED{debug};
    }
    else {
        die (<<ERR);
DBD driver $driver does NOT have the $method method, which IS required
FOR DBI-Link TO work.  Exiting.
ERR
    }
}
 
my $sql = <<SQL;
INSERT INTO dbi_link.dbi_all_connection_info (
    data_source,
    user_name,
    auth,
    dbh_attributes,
    dbi_connection_environment,
    remote_schema,
    remote_catalog,
    local_schema
) VALUES (
    $quoted->{data_source},
    $quoted->{user_name},
    $quoted->{auth},
    $quoted->{dbh_attributes},
    $quoted->{dbi_connection_environment},
    $quoted->{remote_schema},
    $quoted->{remote_catalog},
    $quoted->{local_schema}
)
SQL
 
warn $sql IF $_SHARED{debug};
my $rv = spi_exec_query(
    $sql
);
 
$sql = <<SQL;
SELECT
    pg_catalog.currval(
        pg_catalog.pg_get_serial_sequence(
            'dbi_link.dbi_connection',
            'data_source_id'
        )
    ) AS "the_val"
SQL
warn $sql IF $_SHARED{debug};
my $result = spi_exec_query($sql);
IF ($result->{processed} == 0) {
    die "Couldn't retrieve the dbi connection id via currval()!";
}
else {
    RETURN $result->{rows}[0]{the_val};
}
$BODY$
  LANGUAGE plperlu VOLATILE
  COST 100;
ALTER FUNCTION dbi_link.set_up_connection(dbi_link.data_source, text, text, dbi_link.yaml, dbi_link.yaml, text, text, text) OWNER TO postgres;
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Puedo conectarme desde la consola al servidor MySQL así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

[root@centos6 mysql]# mysql -h 192.168.1.106 -u root -p webdb
Enter password: 
Reading table information for completion of table and column names
You can turn off this feature to get a quicker startup with -A
 
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 3
Server version: 5.5.21 MySQL Community Server (GPL)
 
Copyright (c) 2000, 2011, Oracle and/or its affiliates. All rights reserved.
 
Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.
 
Type 'help;' or '\h' for help. Type '\c' to clear the current input statement.
 
mysql> 
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

También verifiqué que el puerto esté abierto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

[root@centos6 mysql]# telnet 192.168.1.106 3306
Trying 192.168.1.106...
Connected to 192.168.1.106.
Escape character is '^]'.
J
5.5.21,]rEC\)�Qtwxt^Y$Dkpnmysql_native_passwordConnection closed by foreign host.
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Bueno, he intentado también crear una función para una conexión de prueba y me respondió con el mismo error:

ERROR: error en la función de Perl «probando»: DBI connect('host=192.168.1.106;database=webdb','webdb_user',...) failed: Can't connect to MySQL server on '192.168.1.106' (13) at line 14

********** Error **********

ERROR: error en la función de Perl «probando»: DBI connect('host=192.168.1.106;database=webdb','webdb_user',...) failed: Can't connect to MySQL server on '192.168.1.106' (13) at line 14
Estado SQL:XX000

Ésta es la función:

Sintáxis: [ Descargar ] [ Ocultar ]

Using sql Syntax Highlighting

CREATE OR REPLACE FUNCTION probando()
  RETURNS bit AS
$BODY$
 
USE strict;
USE DBI;
 
my $db_user = "webdb_user";
my $db_pass = "pass";
my $host_name = "192.168.1.106";
my $db_name = "webdb";
 
my $q_string = "DBI:mysql:host=$host_name;database=$db_name";
 
my $dbh = DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 1, RaiseError => 1}) OR die DBI::errstr;
 
RETURN 0
 
$BODY$
  LANGUAGE plperlu VOLATILE
  COST 100;
ALTER FUNCTION probando() OWNER TO nsadmin;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otro intento fue agregarle la sección [client] en my.cnf con el puerto y socket igual que [mysqld] en el servidor: 192.168.1.106.

Desde ya, gracias, perdón por la longitud del mensaje, pero es la única manera que encontré de explicarles mi calvario :shock:

Ojalá y puedan ayudarme

#!/usr/bin/perl
 
use strict;
use warnings;
use DBI;
 
my $db_user = "webdb_user";
my $db_pass = "pass";
my $host_name = "192.168.1.106";
my $db_name = "webdb";
 
my $q_string = "DBI:mysql:host=$host_name;database=$db_name";
 
my $dbh = DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 1, RaiseError => 1}) or die DBI::errstr;
 
print "AL FIN! $q_string \n";
 
my $sth = $dbh->prepare("show databases;");
$sth->execute();
 
my $row;
print "Bases de datos: \n";
while($row = $sth->fetchrow_arrayref) {
    print "$row->[0]\n";
}
 
$sth->finish();
 
$dbh->disconnect || warn "\nFallo al desconectar.\nError: $DBI::errstr\n";
 
exit;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¡Ah! y efectivamente, las líneas en [client] tiene el socket bien puesto, por decirlo.

¿Alguna idea de por qué no corre el script en PostgreSQL? El lenguaje es plperlu, también soporta el plperl aunque es más limitado que el anterior.

Estaré infinitamente agradecido

por **explorer** » 2012-04-09 06:21 @306

Pues es que yo no veo errores... Lo único que se me ocurre es
que cambies la cadena de descripción de la conexión a algo así:

'dbi:mysql:servidor:base_de_datos'

pero es que lo que tienes sí que está bien, porque funciona
aparte.

P.D. Ahora no recuerdo si es justo al revés: 'base_de_datos:servidor'

por **explorer** » 2012-04-09 06:34 @315

Un detalle...

Para el caso de DBD::mysql...

Si no se indica el servidor, o se indica '', o se usa 'localhost', entonces la conexión es a la máquina local usando el socket UNIX.

En cambio, si se especifica '127.0.0.1', la conexión se hará vía TCP por el puerto 3306 o por el indicado por 'port=', o con '127.0.0.1:puerto' en caso de que el puerto no sea el estándar.

por **Marvin** » 2012-04-09 20:21 @889

Hola de nuevo

¡Y gracias!

Pude editar la cadena de descripción de la conexión así:

'dbi:mysql:webdb:192.168.1.106:3306' y también de esta manera:
'dbi:mysql:webdb:192.168.1.106'

pero el mismo error persiste...

Como nota, desde PostgreSQL tampoco puedo conectar a una base MySQL en mi localhost.

¿Qué podría ser que desde PostgreSQL no conecta a MySQL? Ya pude conectarme a otras bases (PostreSQL con Pg) en otros servidores...

Ojalá hallemos la solución :wink:

por **Marvin** » 2012-04-10 11:03 @502

Hola, Sres.

No sé si sea un disparate, pero creo que al archivo my.cnf de MySQL le falta una directiva así como [mysqld] y [client], algo que permita conectarse desde PostgreSQL.

Les digo esto porque hice una pequeña función en pltclu para conectarme a MySQL y me arroja el mismo error que con plperlu.

Antes, en Tcl, fuera de PostgreSQL, logré conectarme sin problemas con el mismo script de la función pltclu (así como hicimos el intento con Perl fuera de PostgreSQL).

¿Qué podría acontecer? Se me hace que es algo de la configuración de MySQL

¿Alguna idea? (ya me estoy quedando sin ellas)

¡Muchas gracias, nuevamente!

por **explorer** » 2012-04-10 14:10 @632

Es que yo creo que es básico que en ese archivo esté descrito lo mínimo del funcionamiento de MySQL.

Te pongo el comienzo de uno de mis servidores:

Sintáxis: [ Descargar ] [ Ocultar ]

Using ini Syntax Highlighting

[client]
port            = 3306
socket          = /var/run/mysqld/mysqld.sock
 
# Here is entries for some specific programs
# The following values assume you have at least 32M ram
 
# This was formally known as [safe_mysqld]. Both versions are currently parsed.
[mysqld_safe]
socket          = /var/run/mysqld/mysqld.sock
nice            = 0
 
[mysqld]
#
# * Basic Settings
#
user            = mysql
pid-file        = /var/run/mysqld/mysqld.pid
socket          = /var/run/mysqld/mysqld.sock
port            = 3306
basedir         = /usr
datadir         = /var/lib/mysql
tmpdir          = /tmp
language        = /usr/share/mysql/spanish
skip-external-locking
 
#
# Instead of skip-networking the default is now to listen only on
# localhost which is more compatible and is not less secure.
#bind-address           = 127.0.0.1
bind-address            = 0.0.0.0
 
 
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

No está todo, hay muchas más líneas con más opciones para [mysqld]. Y termina con las secciones
[mysqldump], [mysql] e [isamchk], finalizando con un !includedir /etc/mysql/conf.d/ .

De esto precisamente hemos estado hablando en los mensajes anteriores: este archivo de configuración define qué
posibilidades de conexión debe ofrecer mysqld a los clientes.

Fíjate que nosotros le tenemos puesto para que escuche (bind-address) en todas las IP de la máquina. De esta
manera también damos servicio a los clientes que se conectan desde fuera. Pero esto no es lo normal, además de ser
peligroso si la máquina es visible desde Internet.

por **Marvin** » 2012-04-11 14:08 @630

Hola de nuevo

Así tengo mi archivo my.cnf (espero no sea nada alocado

) basado en el archivo de ejemplo my-large.cnf.

Sintáxis: [ Descargar ] [ Ocultar ]

Using ini Syntax Highlighting

[client]
port            = 3306
socket          = /var/lib/mysql/mysql.sock
 
[mysqld_safe]
log-error       = /var/log/mysqld.log
pid-file        = /var/run/mysqld/mysqld.pid
socket          = /var/lib/mysql/mysql.sock
nice            = 0
 
[mysqld]
port               = 3306
datadir            = /var/lib/mysql
basedir            = /usr
tmpdir             = /tmp
socket             = /var/lib/mysql/mysql.sock
user               = mysql
# Disabling symbolic-links is recommended to prevent assorted security risks
# symbolic-links= 0
pid-file           = /var/run/mysqld/mysqld.pid
skip-external-locking
bind-address       = 0.0.0.0
key_buffer_size = 256M
max_allowed_packet = 1M
table_open_cache = 256
sort_buffer_size = 1M
read_buffer_size = 1M
read_rnd_buffer_size = 4M
myisam_sort_buffer_size = 64M
thread_cache_size = 8
query_cache_size= 16M
# Try number of CPU's*2 for thread_concurrency
thread_concurrency = 8
 
[mysqldump]
quick
max_allowed_packet = 16M
 
[mysql]
no-auto-rehash
# Remove the next comment character if you are not familiar with SQL
#safe-updates
 
[myisamchk]
key_buffer       = 128M
sort_buffer_size = 128M
read_buffer      = 2M
write_buffer     = 2M
 
[mysqlhotcopy]
interactive-timeout
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Esto está correcto?

Perdón por la insistencia. Y a veces el desatino, pero me es indispensable conectarme desde PostgreSQL.

¿No habría forma de forzar la conexión? Es decir, pedirle a mi $dbh leer lo que dice el grupo [client] o todo el archivo de configuración...

por **explorer** » 2012-04-11 14:49 @659

Yo lo veo bien... Tampoco es tan complicado...

A ver... si con un programa Perl aparte, no hay problemas de conexión a MySQL, entonces para mí el sistema funciona. Y lo que debe estar mal es la conexión desde dentro de PostgreSQL.

Hay que mirar los logs de actividad, tanto de PostgreSQL como de MySQL, para ver si ahí indica alguna pista más.

Podría ser tan tonto como que PostgreSQL no tuviese permiso de lectura del socket /var/lib/mysql/mysql.sock en caso de que la conexión fuera así, pero entonces no debería haber problemas si fuera la conexión vía TCP.

Foro - Perl en Español

No puedo conectar MySQL con DBI-Link de PostgreSQL

No puedo conectar MySQL con DBI-Link de PostgreSQL

Publicidad

Re: No puedo conectar MySQL con DBI-Link de PostgreSQL

Re: No puedo conectar MySQL con DBI-Link de PostgreSQL

Re: No puedo conectar MySQL con DBI-Link de PostgreSQL

Re: No puedo conectar MySQL con DBI-Link de PostgreSQL

Re: No puedo conectar MySQL con DBI-Link de PostgreSQL

Re: No puedo conectar MySQL con DBI-Link de PostgreSQL

Re: No puedo conectar MySQL con DBI-Link de PostgreSQL

Re: No puedo conectar MySQL con DBI-Link de PostgreSQL

Re: No puedo conectar MySQL con DBI-Link de PostgreSQL

¿Quién está conectado?