Foro - Perl en Español

por **kishkumen** » 2010-12-10 10:45 @489

Buenos días. Tengo tres días empezando a trabajar en Perl, con poca noción en programación. Ha sido difícil, pero en mi poco conocimiento he hecho algunas cosas.

Aquí está mi programa. El mismo lee un archivo txt, compara con una base de datos y ya inserta en una tabla de la base de datos.

Necesito saber cómo sacar errores en la base de datos DBI, pasar el error al log y mandar por mail.

Código Perl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
#
use DBI;
use DBD::Pg;
 
my $user = "postgres"; #Nombre de usuario para la BD
my $pw = "postgres"; #Password del usuario
my $bd = "basededatos"; #Nombre de la BD
my $sourcename = shift @ARGV; #Nombre del Archivo
#conexiÃ³n a la BD
my $dbh = DBI->connect("dbi:Pg:dbname=$bd", $user, $pw) or die "Unable to connect: $DBI::errstr\n";
 
#connect("dbi:Pg:dbname=$bd") or die $DBI::errstr;
#sentencia SQL a ejecutar
my $query = "INSERT INTO basededatos.prueba( codigo, cod_tipo_aliado, fecha, cant_admin, cant_reca) VALUES (?, ?, ?, ?, ?)";
 
#Mis Variables
my ($codigo, $cod_tipo_aliad, $fecha, $cant_admin, $cat_reca, $cod_tipo_aliado);
#Archivo a Explorar
open (FILE, $sourcename);
 
#Con Esto he extraigo la data de mi archivo y envio a la base de datos
while (<FILE>) {
chomp;
($codigo, $cod_tipo_aliad, $fecha, $cant_admin, $cant_reca) = split(" ");
 
#Comparo la columna $cod_tipo_aliad con Base de Datos si no le doy valor 10
my $tipo = 0;
($tipo) = $dbh->selectrow_array("SELECT cod_tipo_aliado FROM basededatos.codtipoaliado WHERE tipo_aliado=?",undef,$cod_tipo_aliad);
$tipo = 10 unless($tipo);
 
# Agregando a la Base de Datos
my $sth = $dbh->prepare($query);
$sth->execute($codigo,$tipo,$fecha,$cant_admin,$cant_reca);
$sth->finish;
 
}
close (FILE);
exit;
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Base de datos a comparar

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

 AA

 CDC

 EMP

 OAC

 OCMColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Archivo data.txt

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

0000000000 AA             31102010 000389693  000000000

0000000010 TDM             31102010 000000006  000000000

0000001000 CDC             31102010 000000303  000000000

0000000011 XXX             31102010 000000005  000000000Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Bienvenido a los foros de Perl en Español, kishkumen.

No entiendo muy bien la pregunta.

Si se trata de sacar los errores producidos por las funciones de DBI, te vale con consultar los valores que devuelven. Y la función errstr() (aplicado a los objetos DBI) devuelve una cadena de caracteres con el último error producido.

Para imprimir a un log, te vale con abrir el fichero log en modo añadir, e imprimir línea a línea lo que quieres registrar en él.

Y para mandar por correo, depende del sistema operativo que tengas, aunque con módulos como Email::Sender (y el resto de su familia) lo puedes usar en casi todos los sistemas.

Foro - Perl en Español

Cómo sacar errores DBI y mandar a log

Cómo sacar errores DBI y mandar a log

Publicidad

Re: Cómo sacar errores DBI y mandar a log

¿Quién está conectado?