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

use strict;

my $campos='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';
# campos de entrada

my @campos=split /\|/, $campos;

die <<"FIN" unless scalar(@ARGV) >=1;
 Uso:
    extraecampo.pl campo1 campo2 ... campoN <baseDeDatos
 Extrae de la baseDeDatos los campos elegidos de entre
    @campos
 y los despliega separados por espacios. El código puede adaptarse
 fácilmente a otras bases de datos con la misma estructura. También
 puede modificarse para procesar los datos además de extraerlos.
FIN

my $i=0;
my %campos;
foreach(@campos){
    $campos{$_}=$i++;
}

my @camposout=@ARGV;
@ARGV=();

foreach(@camposout){
    die "Campo $_ inexistente. Debe ser uno de ". join " ", @campos,
    "\n" if not defined $campos{$_};
}

while(<>){
    chomp;
    my @datos=split /\|/;
    foreach(@camposout){
	print "$datos[$campos{$_}] ";
    }
    print "\n";
}