#! /usr/bin/env perl
use strict;
use warnings;
use DBI;

####################################
# Antes usar el programa deben configurar las siguiente variable
my $directorio="casillas/"; # directorio donde está el archivo con datos
my $nombre="casillas2012"; # nombre del archivo
my $apellido=".csv"; # y su apellido

####################################

my $dbh=DBI->connect("dbi:CSV:", "", "", 
		     {
			 f_dir=>$directorio,
			 f_ext=>$apellido,
		     });
$dbh->{csv_eol}="\n";
my $nc=$dbh->selectrow_array("SELECT count(*) from $nombre");
my $ar=$dbh->selectall_arrayref(
      "SELECT CASILLA_W, count(*) from $nombre GROUP BY CASILLA_W");
print "Número de Casillas $nc\n";
foreach(@$ar){
    printf "Tipo de casilla: %10s, Número: %8d, Porcentaje: %.2f%%\n",
    $_->[0],  $_->[1],    100*$_->[1]/$nc;
}

$nc=$dbh->selectrow_array("SELECT sum(LISTA_NOMINAL_CASILLA) FROM $nombre");
$ar=$dbh->selectall_arrayref(<<"FIN");
    SELECT CASILLA_W, SUM(LISTA_NOMINAL_CASILLA) FROM $nombre 
    GROUP BY CASILLA_W
FIN
print "Listado nominal total $nc\n";
foreach(@$ar){
   printf "Tipo de casilla: %10s, Listado nominal: %8d, Porcentaje: %.2f%%\n", 
   $_->[0], $_->[1],  100*$_->[1]/$nc;
}


