#!/usr/bin/perl
use strict;
use warnings;

my $ORACLE_SID=$ARGV[0];

sub get_sorted_files {
   my $path = shift;
   opendir my($dir), $path or die "no puedo abrir $path: $!";
   my %hash = map {$_ => (stat($_))[9] || undef} # saltar listas vacias
    map  { "$path$_" }
    grep { m/.dbf/i }
    readdir $dir;
    closedir $dir;
    return %hash;
}

my %files = get_sorted_files("/oracle/arclog/".$ORACLE_SID."/");
my $count = keys %files;

if($count < 60) {
    print "OK - Encontrados $count redo logs en /oracle/arclog/".$ORACLE_SID."/|'redologs'=$count\n";
    exit 0;
} else {
    print "CRITICAL - Encontrados $count redo logs en /oracle/arclog/".$ORACLE_SID."/|'redologs'=$count\n";
    exit 2;
}