Ver Tema

Antonio · 2011-09-29 07:40 @361

¡Qué tal, comó están todos!

Antes que nada quiero decirles que soy nuevo en este lenguaje (Perl) y la verdad tengo mucho interés en aprender más.

Tengo una página hospedada en un servidor, un dominio y el servidor soporta PHP y Perl para los cgi, sé cuales son las rutas y tengo los permisos 755 en la carpeta y en el archivo .cgi, pero a la hora de hacer una prueba da error.

El servicio técnico del hosting me dice que son antiguos.
Este mismo cgi ha funcionado en otro hosting que ha cerrado, ahora en septiembre.

Por favor, ayuda.

admin.cgi

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#
# admin.cgi  (Antonio Tain, 26-09-2011)
#
# CGI para la administración de productos de ADOS
#
 
use Mysql;
use LWP::Simple;
 
require "admin.cfg";
 
$|=1;
 
print "Content-type: text/html\n\n";
 
 
 
 
#-- Fichero de contraseña de administración.
$FICH_PWD=$dir_cgi.$separador_directorios."admin.pwd";
 
#-- Leemos la entrada guardando los campos en el hash %in y los nombres de los ficheros, 
#-- si los hay, en %file_name. %file_content dice el tipo de los ficheros, y %cgi_sfn no se usa.
#-- ATENCION, esta funcion, añade al final de cada variable de $in, el fin de cadena \0, con lo
#--           que la expresion regular para ver si una variable esta vacia o con espacios, con 
#--           esta nueva funcion, no funciona if ($variablei=~/^[ \t]*$/)
#--           sino que tenemos que usar       if ($variable=~/^[ \t]*[\0]*$/)
 
&ReadParse(\%in,\%file_name,\%file_content,\%cgi_sfn);
localhost   estudioa_datos  
 
 
 
#------------------ conexion a la BD ------------------------------------
$user='estudioa_estudio';
$passwd='f@M2Fx63$)';
$dbh=Mysql->connect('localhost','estudioa_estudio',$user,   $passwd);
 
 
 $tabla_productos="productos";
 $tabla_categorias="categorias";

explorer · 2011-09-29 07:57 @373

Bienvenido a los foros de Perl en español, Antonio.

Yo veo que el módulo Mysql puede ser la razón: ya nadie lo usa. En su lugar, se usa DBI.

En esto foro, en la sección de Tutoriales tienes algunos ejemplos. Y en los foros, muchos más. Busca por 'DBI'.

La línea 31 parece que es un error... ¿Has ejecutado el programa en tu ordenador, con perl -c para ver si hay errores de sintaxis?

Prueba a poner mi CGI mínimo, para comprobar que sí está activo el servicio CGI, en tu alojamiento.

Observa que uso CGI::Carp, para que, en caso de error, salga por la ventana del navegador.

Antonio · 2011-09-29 10:25 @475

Lo primero, gracias por la respuesta.

No entiendo lo de DBI, la base de datos está en SQL y la vuelco en el servidor mediante MySQL.

Podrías enviarme algo, ¿cómo hacer la llamada? o un ejemplo.

Esta misma llamada funcionaba en otro servidor "PRIMEGALACTIC" que, por lo que pareca, ha cerrado y estoy colgadísimo.

Saludos

explorer · 2011-09-29 10:39 @485

Sí, ya sabemos que la base de datos es la MySQL. Aquí estamos hablando del módulo que necesitas para dialogar con ella.

El módulo Mysql que estás usando es muy antiguo (del 2006). Lo más seguro es que tengas instalado, en tu alojamiento actual, el módulo DBI (y el DBD::mysql) en lugar del Mysql.

Tienes que leer antes la guía que te he indicado.

Aquí tienes un hilo parecido, con un ejemplo.

Publicidad

Socializa