#!/usr/bin/perl
use locale;

my $fic=shift;
open F, "<$fic" or die "$!";
open DEBUG, ">_Erros_perl.tmp" || die "$!";

$/='#--------------------------------------------------';
$p=<F>;
print $p;
$stat{certo}++; #primeira está correcta

while (<F>){
    if (!/undef,/) {
	print $_;
	$stat{certo}++;
    }else{
	$stat{erros}++;
	$_=~/\'source\' => \'([^ ]+) /;
	print STDERR "Erro: $1\n";
	print DEBUG $_;
    }
}
$stat{erros}--;#ignorar ultimo erro
unless ($stat{erros}==0){
    printf STDERR "Aceites: $stat{certo}\nRejeitados: $stat{erros}\nVálido:%2.1f\n\n",100-$stat{erros}*100/$stat{certo};
}

close (F);
close (DEBUG);