Estoy presentando problemas en un script al comparar si una variable es igual a cero. El código me deja algunas variable con un valor null; las variables null entran en el if() siendo que éste tiene la siguiente sentencia: if ($variable == 0 ).
Adjunto código, desde ya agradezco el apoyo.
Using perl Syntax Highlighting
- #! /usr/bin/perl
- #Transacciones
- use MIME::Lite;
- use strict;
- use POSIX 'strftime';
- my $fecha = strftime "%d-%m-%Y %H:%M:%S", localtime;
- my $var_0;
- my $var_1;
- my $var_2;
- my $var_3;
- my $var_4;
- my $var0;
- my $var1;
- my $var2;
- my $var3;
- my $var4;
- $var0=`perl -ne 'print if /0/' /u01/home/apli/admmon/mon/data/motorAirMiddleware.txt`;
- $var1=`perl -ne 'print if /1/' /u01/home/apli/admmon/mon/data/motorAirMiddleware.txt`;
- $var2=`perl -ne 'print if /2/' /u01/home/apli/admmon/mon/data/motorAirMiddleware.txt`;
- $var3=`perl -ne 'print if /3/' /u01/home/apli/admmon/mon/data/motorAirMiddleware.txt`;
- $var4=`perl -ne 'print if /4/' /u01/home/apli/admmon/mon/data/motorAirMiddleware.txt`;
- $var_0= 0 + $var0;
- $var_1= 0 + $var1;
- $var_2= 0 + $var2;
- $var_3= 0 + $var3;
- $var_4= 0 + $var4;
- my $correo_0 = MIME::Lite->new(
- Subject => "OK (M0004-01-01) (".$var_0.")" ,
- Data => "Todo a resultado correctamente",
- );
- my $correo_1 = MIME::Lite->new(
- Subject => "ERROR 1 (M0004-01-01E) (".$var_1.")",
- Data => "Error en la llamada del ws",
- );
- my $correo_2 = MIME::Lite->new(
- Subject => "ERROR 2 (M0004-01-01E) (".$var_2.")",
- Data => "Error en respuesta (no se encuentra el string ok)",
- );
- my $correo_3 = MIME::Lite->new(
- Subject => "ERROR 3 (M0004-01-01E) (".$var_3.")",
- Data => "Error al incluir el archivo de parametros",
- );
- my $correo_4 = MIME::Lite->new(
- Subject => "ERROR 4 (M0004-01-01E) (".$var_4.")",
- Data => "Error al ejecutar el archivo de parametros",
- );
- MIME::Lite->send('smtp','smtpa',Timeout=>60);
- if($var_0 == 0)
- {
- $correo_0->send();
- open(LECTURA,">>/u01/home/apli/admmon/mon/data/DATA_TRX/motorAi.csv");
- print LECTURA $fecha." ; ".$var_0." ; OK \n";
- close(LECTURA);
- }
- if($var_1 == 1)
- {
- $correo_1->send();
- open(LECTURA,">>/u01/home/apli/admmon/mon/data/DATA_TRX/motorAi.csv");
- print LECTURA $fecha." ; ".$var_1." ; ERROR \n";
- close(LECTURA);
- }
- if($var_2 == 2)
- {
- $correo_2->send();
- open(LECTURA,">>/u01/home/apli/admmon/mon/data/DATA_TRX/motorAi.csv");
- print LECTURA $fecha." ; ".$var_2." ; ERROR \n";
- close(LECTURA);
- }
- if($var_3 == 3)
- {
- $correo_3->send();
- open(LECTURA,">>/u01/home/apli/admmon/mon/data/DATA_TRX/motorAi.csv");
- print LECTURA $fecha." ; ".$var_3." ; ERROR \n";
- close(LECTURA);
- }
- if($var_4 == 4)
- {
- $correo_4->send();
- open(LECTURA,">>/u01/home/apli/admmon/mon/data/DATA_TRX/motorAi.csv");
- print LECTURA $fecha." ; ".$var_4." ; ERROR \n";
- close(LECTURA);
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4