Foro - Perl en Español

por **mariomb19** » 2012-05-16 08:24 @391

Buenas tardes. Quisiera guardar un log. Vi por el foro el Log::Log4Perl pero no lo entiendo bien, lo que quiero hacer algo como esto.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$dbt= DBI->connect('DBI:Pg:dbname=xxx;host=xxx.xxx.xxx.xxx','xxxx','xxxxxx')||die"ERROR CONEXION : $DBI::errstr";Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero además, ese error, aparte de aparecer en pantalla en caso de no conectarse, se guarde en un archivo txt, ¿me podrían decir qué función uso? Gracias.

Al principio del programa abres el log en forma de añadir ('>>') y luego defines la subrutina escribe_en_log(), donde lo único que tiene que hacer es mandar el mensaje al log (con un print), y regresar. En caso de ser un fallo grave, el programa morirá con un die(), pero eso ya no es responsabilidad de esta subrutina.

por **mariomb19** » 2012-05-16 09:31 @438

Amigo, disculpa las molestias, pero no te entendí bien, sobre abrir al principio del programa el log '>>' y definir la subrutina.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use DBI;
use DBD::Pg;
 
                          
                   
my $dbh= DBI->connect('DBI:Pg:dbname=hcm;host=xxx.xxx.xxx.xxx','xxx','xxxxxxx');
           if (not defined $dbh) {
           my $msg = "ERROR CONEXION : $DBI::errstr\n"; 
           escribe_en_log($msg);
           die $msg;
           }
                              
$dbh->disconnect();
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si tengo este programa ¿cómo guardo el error en un archivo txt independiente?

por **explorer** » 2012-05-16 10:02 @459

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use warnings;
use DBI;
 
# Abrimos el log
open my $LOG, '>>log.txt' or die "ERROR: No pude escribir en el log.txt: $!\n";
 
# Programa
registra('Inicio de ejecución');
 
my $dbh = DBI->connect( 'DBI:Pg:dbname=hcm;host=161.196.16.146', 'hcm', 'sirphp' );
if ( not defined $dbh ) {
    my $msg = "ERROR CONEXION : " . $DBI::errstr;
    registra($msg);
    die "$msg\n";
}
 
# Fin
$dbh->disconnect() and registra('Cierre correcto de la conexión');
registra('Fin de ejecución');
close $LOG;
exit 0;
 
# Subrutinas
sub registra {
    my $msg = shift;
    print $LOG "$msg\n";
}
 
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Guardar un log en un archivo txt si hay error en un script

Guardar un log en un archivo txt si hay error en un script

Publicidad

Re: Guardar un log en un archivo txt si hay error en un scri

Re: Guardar un log en un archivo txt si hay error en un scri

Re: Guardar un log en un archivo txt si hay error en un scri

¿Quién está conectado?