Ver Tema

animal collective · 2012-01-10 14:46 @657

Estimados,

Junto con saludarlos, necesito realizarles la siguiente consulta.

Estoy programando un script en Perl que se conecta a una BD Oracle y retorna un número entero. Este número entero lo comparo con un valor X, y si pasa el umbral establecido envío una alerta a través de correo electrónico.

Mi problema es que el código es muy poco profesional. Necesito saber cómo poder realizar de mejor forma la conexión a la base de datos para traer el valor que retorna, como también si hay alguna forma de capturar los errores de conexión y guardarlos en una variable para que estos también puedan ser enviados por correo.

Les comento que mi código sí funciona, pero cuando la base de datos está caída el script no detecta esto.

Adjunto el código que he realizado:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!C:\Perl\bin\perl.exe -w
#Transacciones
use MIME::Lite;
use strict;
use POSIX 'strftime';
my $alerta;
my $fecha = strftime "%d-%m-%Y %H:%M:%S", localtime;
my $var;
my $valor;
 
$valor=`sqlplus -S usuario/pass\@tnsname \@F:\\QRY/consulta.sql`;
$var= $valor + 0;
 
my $message = MIME::Lite->new(
        From    => 'correo@gmail.com',
        To      => 'correo1@gmail.com', 
        Subject => "DIF MIN REPLICA", 
        Data    => "Minutos de desfase entre hora actual y hora de ultima transacción en réplica: ".$var." Minutos",
);
        
MIME::Lite->send('smtp','server_correo',Timeout=>60);
 
if($var >= 12)
{
   $message->send();
   open(LECTURA,">>/LOG/ARGENTINA/DIF_MIN_REPLICA.csv");
   print LECTURA $fecha." ; ".$var." ; CRITICAL \n";
   close(LECTURA);
}
else
{
 if($var < 12)
 {
   open(LECTURA,">>/LOG/ARGENTINA/DIF_MIN_REPLICA.csv");
   print LECTURA $fecha." ; ".$var." ; OK \n";
   close(LECTURA);
 }
 else
 {
   open(LECTURA,">>/LOG/ARGENTINA/DIF_MIN_REPLICA.csv");
   print LECTURA $fecha." ; NULL ; CRITICAL \n";
   close(LECTURA);
 }
}
 

explorer · 2012-01-10 15:26 @685

La forma profesional de hacerlo es usando DBI, pero tendrás que asegurarte que tienes instalado DBD::Oracle, y esto último es bastante complicado... si se hace a mano.

En las instalaciones Oracle, suele venir un directorio con un Perl propio, y con ese módulo ya compilado, así que entonces no hay que hacer ninguna instalación. Casi siempre ese Perl es muy viejo, pero para hacer consultas a la base de datos, es más que suficiente.

Según el propio README.win32.txt, la forma más cómoda es usando el PPM de ActiveState. O bajar las fuentes por el mismo medio y compilarlas (también comentado en el txt).

Presta atención a la combinación versión_de_tu_Perl / Sistema_operativo / versión_de_Oracle. No todas las combinaciones funcionan.

Si lo consigues, tendrás acceso a las centenares de funciones que DBI+DBD::Oracle te ofrecen, entre ellas, las que solicitas en tu pregunta.

Más información (en inglés) en la página Perl del Oracle Wiki.

Buena suerte...

(Después de todo esto, no me extraña que la gente prefiera usar MySQL o MariaDB o PostgreSQL)

En cuanto al código, se puede simplificar un poco.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!C:\Perl\bin\perl.exe
# Transacciones
use strict;
use warnings;
use MIME::Lite;
use POSIX 'strftime';
 
my $fecha   = strftime "%d-%m-%Y %H:%M:%S", localtime;
my $valor   = 0 + qx(sqlplus -S usuario/pass\@tnsname \@F:\\QRY/consulta.sql);
 
open(LECTURA, '>>/LOG/ARGENTINA/DIF_MIN_REPLICA.csv');
 
if ($valor >= 12) {
    my $message = MIME::Lite->new(
        From    => 'correo@gmail.com',
        To      => 'correo1@gmail.com',
        Subject => 'DIF MIN REPLICA',
        Data    => "Minutos de desfase entre hora actual y hora de ultima transacción en réplica: $var minutos",
    );
 
    MIME::Lite->send('smtp', 'server_correo', Timeout => 60);
    $message->send();
 
    print LECTURA "$fecha ; $valor ; CRITICAL \n";
}
else {
   print LECTURA "$fecha ; $valor ; OK \n";
}
 
close(LECTURA);

Publicidad

Socializa