leonardoruoso

-l=78   # Max line width is 78 cols
-i=2    # Indent level is 2 cols
-ci=4   # Continuation indent is 4 cols
-vt=0   # Minimal vertical tightness
-cti=0  # No extra indentation for closing brackets
-pt=1   # Medium parenthesis tightness
-bt=1   # Medium brace tightness
-sbt=1  # Medium square bracket tightness
-bbt=1  # Medium block brace tightness
-nsfs   # No space before semicolons

leonardoruoso

#!/usr/bin/perl
use autodie;
use common::sense;

=pod

=head1 Sobre

O resquisito é analisar múltiplos arquivos de log gerados simultaneamente, com as linhas sincronizadas, e imprimir uma linha com o reultado com o primeiro OK contido, exceto no caso de imprimir o primeiro resultado contendo CRITICO. Imprimir nada se nenhum dos dois dor encontrado.