Foro - Perl en Español

Saludos, quite ya el espacio en blanco y nada, el problema es q cuando abro este programa con el navegador, yo quisiera la consulta a la bases de datos, pero no la hace, no hay problema cuando la base esta en la misma maquina donde tengo el servidor web, pero esta base que quiero consultar en ese programa esta en otra maquina, no se si haya alguna restriccion, como ya mensione, si corro el programa con la instruccion perl, si se conecta bien a la base de datos, ojala tengan alguna idea.

Si, has quitado el espacio en blanco. ¿Pero has puesto como primera línea a #!/usr/bin/perl? Eso es lo importante.

Para comprobar que realmente es un script perl y está bien puesta la cabecera, en vez de ejecutarlo con 'perl patito.pl' hazlo con 'patito.pl'.

¿Qué es lo que sale en los registros de actividad del servidor web (los ficheros log) a la hora de ejecutar el programa? Ahí tendrás muchas pistas.

Si la base de datos está en otra máquina, quizás tengas que poner el valor 'Host' dentro del 'connect' para que DBI sepa dónde está la base de datos.

Y, naturalmente, el motor de base de datos Informix debe permitir conectarse desde fuera de su máquina.

Y, claro, los puertos de conexión no deben de estar filtrados ni en la máquina de origen ni en la de destino.

No estarás abriendo el programa con un browser como si fuera un HTML, verdad?
Espero que no, porque si es así, je je núnca funcinara.
El servidor ejecuta el script y retorna la salida del programa.
Buno no creo que eso sea pero como se dice por aquí "posr si las moscas".
Algún error que ver?
Viste los logs del servidor?
Por cierto en esta linea:

Quita el print, no hace falta.
Ejecuta

Código: Seleccionar todo

perl  -Mdiagnostics -wc patito.pl

A ver que dice.

Saludos:

Uffffff, el problema esta solucionado, muchas gracias, resulta q cuando corria el programa desde mi usuario el programa se conectaba correctamente, esto porque tiene el profile configurado a un sqlhosts donde esta configuradas las bases a usar, pero cuando se corre desde un navegador, utiliza el usuario del servidor web, y este tenia otro archivo sqlhosts donde no estaba configurada la base de datos a utilizar, muchas gracias, este foro fue de gran ayuda, estare en contacto, jaja, seguramente con mas problemas y dudas.

Saludos:

Tengo ahora un problema al escribir un Query, quiero ejecutar el siguiente:



Pero necesito que paterno y materno sean variables. Intenté el siguiente código:


Y me salen los siguientes mensajes de error:

Código: Seleccionar todo

[Thu Oct 12 15:15:05 2006] [error] [client xxx.xxx.xxx.xxx] DBD::Informix::st execute failed: called with 3 bind variables when 1 are needed at /var/www/cgi-bin/sueldo.pl line 49., referer: http://xxx.xxx.xxx.xxx/cgi-bin/sueldo.pl
[Thu Oct 12 15:15:05 2006] [error] [client xxx.xxx.xxx.xxx] DBD::Informix::st fetchrow_array failed: SQL: -400: Fetch attempted on unopen cursor. at /var/www/cgi-bin/sueldo.pl line 50., referer: http://xxx.xxx.xxx.xxx/cgi-bin/sueldo.pl
[Thu Oct 12 15:15:05 2006] [error] [client xxx.xxx.xxx.xxx] Use of uninitialized value in concatenation (.) or string at /var/www/cgi-bin/sueldo.pl line 51., referer: http://xxx.xxx.xxx.xxx/cgi-bin/sueldo.pl
[Thu Oct 12 15:15:05 2006] [error] [client xxx.xxx.xxx.xxx] Use of uninitialized value in string eq at /var/www/cgi-bin/sueldo.pl line 95., referer: http://xxx.xxx.xxx.xxx/cgi-bin/sueldo.pl
[Thu Oct 12 15:15:05 2006] [error] [client xxx.xxx.xxx.xxx] Use of uninitialized value in string eq at /var/www/cgi-bin/sueldo_base1.pl line 105., referer: http://xxx.xxx.xxx.xxx/cgi-bin/sueldo.pl

Ojalá alguno de uds pueda ayudarme, aún me falta mucho por aprender de Perl. Gracias nuevamente.

Podrías probar a crear la sentencia SQL antes de 'prepararla':



No deja de ser una chapucilla, porque además no contaríamos con el trabajo de escape de caracteres que hace execute, pero para el caso de que $paterno y $materno sean strings 'normales', se podría intentar algo así.

Quizás esto otro funcione (sacado del manual del DBI):

Saludos:

Se resolvio el problema escibiendo la sentencia como me recomendaste

$prep = "select count(*) from cheque where rfc=? and nombre like \"$paterno\%$materno\%\" ";
my $sth = $dbh->prepare($prep);
$sth->execute($rfc);

Gracias.