captura-log

#!/usr/bin/env perl

use strict;
use warnings;

use DateTime;

# Define e formata a Data de Busca
my $dt  = DateTime->now->set_time_zone('America/Sao_Paulo');
my $dia = $dt->day;
my $mes = $dt->month_abbr;
##my $data = "$dia" . "-" . "$mes";
my $data = "12-Jun";

my $arquivo_log  = "/var/log/log";
my $falhas       = "/home/flavio/Scritps/err_execucao.sh";
my $nao_executou = "/home/flavio/Scritps/nao_rodou.sh";

my @buffer;

open( my $file, "<", $arquivo_log )
  or die "Erro ao abrir o arquivo: $!";

my $contador = 0;
while (<$file>) {

    if ( $_ !~ /^$data/ ) {

        ## Nao faz nada!

    }

    else {

        $contador++;

    }

}

if ( $contador > 0 ) {

    open( my $file, "<", $arquivo_log )
      or die "Erro ao abrir o arquivo: $!";

    while ( my $line = readline $file ) {

        next unless $line =~ /$data/;
        $/ = undef;

        push @buffer, $line;

        foreach (@buffer) {

            if (   $_ =~ /\s*Non-fatal.*1/i
                or $_ =~ /\s*FD\s*termination.*Error/i
                or $_ =~ /\s*SD\s*termination.*Waiting/i
                or $_ =~ /\s*Canceled/i
                or $_ =~ /\^($data).*Unable to connect/i
                or $_ =~ /\^($data).*Open.*Device/i
                or $_ =~ /\^($data).*Could not open/i )
            {


                system($falhas) == 0 or die "Erro ao executar: $?";

            }

        }
    }

}
else {

    # Envia mail dizendo que não houve backup no dia

    system($nao_executou) == 0 or die "Erro ao executar: $?";

}

close $file;