#!/usr/bin/env perl

use 5.14.0;
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;
my $ano = $dt->year;

my $data;

#my $data = $dia - 1 . "-" . $mes . "-" . $ano;

my $log = "/home/flavio/teste/meulog.log";

sub pesquisa {

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

    my @buffer;

    while (<$file>) {

        if ( /^Data Inicial => $data/ .. /Data Final => $data$/ ) {

            next if /^Data Inicial => $data/ and /Data Final => $data$/;

            push @buffer, $_;

        }

    }
#   say "@buffer";

#   seek $file, 0, 0;

    my $contador = 0;
    foreach (@buffer) {

        if ( $_ =~ /^sent/i || $_ =~ /^total/i ) {

            $contador++;

        }

    }

    if ( $contador == 0 ) {

        say "Não houve sincronizacao na data: $data";
        # e Executa um script......
    }

    #   close $file;

}    ## fim da sub pesquisa


    foreach ( reverse (0 .. 2) ) {

        $data = $dia - $_ . "-" . $mes . "-" . $ano;
        pesquisa($data);

}