Foro - Perl en Español

por **rookie23** » 2006-01-12 13:14 @593

Saludos a todos:

Soy todo un novato en Perl, pero muestro gran entusiasmo para aprenderlo.

Y es que no me queda de otra, ya que me acaban de asignar a un nuevo proyecto en el trabajo, y consiste en acceder a una base de datos mediante Perl, que se encuentra en un servidor con MySQL para poder hacer modificaciones y crear una nueva Base de Datos con las modificaciones hechas.

¿Puede alguien sugerirme por dónde empezar? ¿A qué me debo enfocar en particular del lenguaje Perl? ¿Tiene alguien algún enlace con documentación al respecto?

Agradezco de antemano cualquier ayuda.
Saludos desde Puebla.

Aparte de lo ya comentado, en este sitio tienes artículos que te pueden ayudar bastante.

Visita la página principal de perlenespanol.com, vete a artículos y luego tutoriales y léelos según tu nivel.

Los relacionados con las bases de datos están aquí.
Y, naturalmente, todas las dudas se podrán resolver en este foro, que para eso estamos.

Recuerda: con Perl se pueden resolver los problemas de diez formas distintas, pero NO es obligatorio saberlas todas :wink:

Al contrario, Perl te permite elegir la que te de la gana ("Hay más de una forma de hacerlo").

P.D. Con moderación, claro

por **macgregor** » 2006-01-13 09:56 @455

viewtopic.php?t=500

Aquí puedes ver el mensaje de los módulos para conexión con bases de datos en castellano.

Están pensados para usarse con Oracle pero cambiando el nombre del controlador por el de MySQL funcionan igual de bien.

Si te vuelve loco prepare(), execute(), fetchrow_array(), finish()... cada instrucción con estos módulos solo tendrás que utilizar las palabras "consultar", "ejecutar" y "leercursor" dependiendo de lo que quieras hacer.

Tienen muchas mas posibilidades, pero todo se puede hacer con estas funciones.

Aquí te pongo como ejemplo parte del código de uno de mis cgi.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# MICRO= nombre de la base de datos.
sub conectar_DB
{
                $MICRO=Nuevo GestorDatos('MICRO','username','password');
                $MICRO->{Diario}=$diario;
                $MICRO->{Simular}=$SIMULAR;
                $MICRO->Conectar;
}
 
sub desconectar_DB
{
                $MICRO->Desconectar;
                $diario->Cerrar;
}
 
sub insertar_hibrid
{
        print qq~
                        <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
                        <HTML>
                        <HEAD>
                        <TITLE> HYBRIDIZATION </TITLE>
                        <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">                
                        <link rel="stylesheet" type="text/css" href="standard.css">
                        </HEAD>
                        <BODY>
                        <CENTER>
        ~;
 
        $date_finish = param(DATE_FINISH);
        $slide = param(SLIDE);
        $array_type = param(ARRAY_TYPE);
        $array_batch = param(ARRAY_BATCH);
        $extract = param(EXTRACT);
        $samples = param(SAMPLES);
        $data_owner = param(DATA_OWNER);
        $notebook_hibrid = param(NOTEBOOK_HIBRID);
        $notebook_scanner = param(NOTEBOOK_SCANNER);
        $protocol = param(PROTOCOL);
 
#       parametros no obligatorios vacios => insertaremos NULL en la base de datos 
 
        if (defined(param(OBSERVATIONS)))       {       $observations = param(OBSERVATIONS);    } else {$observations = '\'\''}
 
        
        my $username=param(USERNAME);
        my $password=param(PASSWORD);
 
        my @ID_USER=$MICRO->Consultar("SELECT T.ID_USER FROM MICRO.TBL_USER T WHERE T.USERNAME = \'$username\' AND T.PASSWORD = \'$password\'");
        my $id_user=$ID_USER[0];
 
        if (defined $id_user) 
        {
                my @ID_HIBRIDACION=$MICRO->Consultar("SELECT MAX(H.ID_HIBRIDACION) FROM MICRO.TBL_HIBRIDACION H");
                $id_hibridacion=$ID_HIBRIDACION[0] + 1;
 
                        if (defined $id_hibridacion) 
                        {
                                if ($MICRO->Ejecutar(\$id,"INSERT INTO MICRO.TBL_HIBRIDACION (ID_HIBRIDACION,ID_USER,DATE_FINISH,SLIDE,ARRAY_TYPE,ARRAY_BATCH,EXTRACT,SAMPLES,DATA_OWNER,NOTEBOOK_HIBRID,NOTEBOOK_SCANNER,ID_PROTOCOL,OBSERVATIONS) VALUES (?,?,TO_DATE(\'$date_finish\',\'DD/MM/YYYY\'),?,?, TO_DATE(\'$array_batch\',\'DD/MM/YYYY\'),?,?,?,?,?,?,?)",$id_hibridacion,$id_user,$slide,$array_type,$extract,$samples,$data_owner,$notebook_hibrid,$notebook_scanner,$protocol,$observations)) 
                                {       
                                        if ($MICRO->LeerCursor("SELECT U.ID_USER FROM MICRO.TBL_USER U WHERE (U.ID_USER < 100 AND U.ID_USER > 2) OR U.ID_USER = 0",'main::permitir_lectura')) 
                                        {
                                                        print "<BR><h2>Adding lab-users privileges.</h2>";  
                                        }
                                        print "<BR><h1>Data Inserted Correctly.</h1>";  
                                }
                                else
                                {
                                        print "<BR><h2>Error: impossible to insert data, wrong data.</h2>";
                                }
                        }
                        else
                        {
                                print "<BR><h2>Error: the insertion could not have been prepared. id_hibridacion:[$id_hibridacion]</h2>";
                        }
        }
        else
        {
                print "<BR><h2>Error: user or password incorrect.</h2>";
        }
}
 
                ############   MAIN   ############
 
&conectar_DB;
 
if (defined (param()))  #tenemos datos a tratar y mostrar
{
                &inicializaciones;
                &insertar_hibrid;
                
}
else            #Formulario inicial, pedimos los datos
{       
        &inicializaciones;
        &form_insertar;
}
 
&desconectar_DB;
 
exit(1);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Las variables que utilices para insertar en la DB pueden contener caracteres especiales, no tiene que preocuparte. (no hace falta que estén escapados con la clásica "\").

Si alguien se decide a usar estos módulos puedo publicar todos los ejemplos que quieran.

Un saludo

por **rookie23** » 2006-01-13 16:25 @726

Salu2 a to2.

Mil gracias por la ayuda, estaré el fin de semana consultando la documentación sobre bases de datos de esta misma página. Además he adquirido una buena guía de Perl de Martin C. Brown, y con la valiosa ayuda de este foro, estoy seguro que sacaré adelante el trabajo que me encomendaron...

Gracias y ya les contaré en lo próximos días cómo me ha ido... Saludos desde Puebla, México.

Foro - Perl en Español

Ayuda con Perl y MySQL

Ayuda con Perl y MySQL

Publicidad

Re: Ayuda con Perl y MySQL

¿Quién está conectado?