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

use strict;
die <<FIN unless scalar(@ARGV) >=1;
 Uso:
    extraecampo.pl campo1 campo2 ... campoN <baseDeDatos
 Extrae de la baseDeDatos los campos elegidos de entre TIEMPO, PAN,
 ALIANZA_POR_MEXICO, POR_EL_BIEN_DE_TODOS, NUEVA_ALIANZA,
 ALTERNATIVA_SOCIAL_DEMOCRATA, NO_REGISTRADOS, NULOS, NUMERO_VOTANTES
 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 @campos=qw(TIEMPO PAN ALIANZA_POR_MEXICO POR_EL_BIEN_DE_TODOS
	      NUEVA_ALIANZA ALTERNATIVA_SOCIAL_DEMOCRATA
	      NO_REGISTRADOS NULOS NUMERO_VOTANTES);
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{$_};
}

print "#", join(" ",@camposout), "\n";

while(<>){
    next if /^#/;
    chomp;
    my @datos=split;
    my @datosout=@datos[map $campos{$_}, @camposout];
    print join(" ", @datosout), "\n"; 
}