#!/usr/local/bin/perl -w
#Autor: W. Luis Mochán

use strict;

#campos conteo
my $cCD='#TIME_STAMP|ID_ESTADO|DISTRITO|SECCION|ID_CASILLA|TIPO_CASILLA|EXT_CONTIGUA|TIPO_CANDIDATURA|TIPO_ACTA|LISTA_NOMINAL|NO_VOTOS_NULOS|NO_VOTOS_CAN_NREG|NO_VOTOS_VALIDOS|TOTAL_VOTOS|ORDEN|PAN|APM|PBT|NA|ASDC|MUNICIPIO|PAQUETE_ENTREGADO|CASILLA_INSTALADA|FECHA_HORA';

my @cCD=split /\|/, $cCD;
my $i=0;
my %cCD;
foreach(@cCD){
    $cCD{$_}=$i++;
}


#campos prep
my $cPREP='ESTADO|DISTRITO|SECCION|CASILLA|UBICACION_CASILLA|TIPO_ACTA|BOLETAS_RECIBIDAS|BOLETAS_SOBRANTES|NUMERO_VOTANTES|BOLETAS_DEPOSITADAS|PAN|ALIANZA_POR_MEXICO|POR_EL_BIEN_DE_TODOS|NUEVA_ALIANZA|ALTERNATIVA_SOCIAL_DEMOCRATA|NO_REGISTRADOS|NULOS|LISTA_NOMINAL|TIMESTAMP_REGISTRO|HORA_REGISTRO';

my @cPREP=split /\|/, $cPREP;
$i=0;
my %cPREP;
foreach(@cPREP){
    $cPREP{$_}=$i++;
}

#encabezados
my $dCD=<>;
my $dPREP=<>;
print "$dCD$dPREP";

while(1){
    $dCD=<>;
    $dPREP=<>;
    last unless $dCD or $dPREP;
    die "Base corrputa" unless $dCD and $dPREP;
    next if $dCD=~/^\#/ and $dPREP=~/^\#/;
    die "Base corrupta" if $dCD=~/^\#/ or $dPREP=~/^\#/;
    my @dCD=split /\s+/,$dCD;
    my @dPREP=split /\|/,$dPREP;
    print "$dCD$dPREP$dCD[$cCD{TOTAL_VOTOS}] vs $dPREP[$cPREP{NUMERO_VOTANTES}]\n\n;" 
	if $dCD[$cCD{TOTAL_VOTOS}] != $dPREP[$cPREP{NUMERO_VOTANTES}];
}

    

sub suma {
    my $x=0;
    foreach(@_){
	$x+=$_;
    }
    return $x;
}