#!/usr/bin/perl
use strict;
my $fichier;
my %resultats;

my %couleur = ('BAYROU' => 'DROITE', 'BESANCENOT' => 'GAUCHE', 'BOUTIN' => 'DROITE', 'BOVÉ' => 'GAUCHE', 'BUFFET' => 'GAUCHE', 'CHEVENEMENT' => 'GAUCHE', 'CHIRAC' => 'DROITE', 'de VILLIERS'=> 'DROITE', 'GLUCKSTEIN' => 'ND', 'HUE' => 'GAUCHE', 'JOSPIN' => 'GAUCHE', 'LAGUILLER'=>'GAUCHE', 'LEPAGE' => 'ND', 'LE PEN' => 'DROITE', 'MADELIN' => 'DROITE', 'MAMERE' => 'GAUCHE', 'MEGRET' => 'DROITE', 'NIHOUS' => 'DROITE', 'ROYAL' => 'GAUCHE', 'SAINT-JOSSE' => 'DROITE', 'SARKOZY' => 'DROITE', 'SCHIVARDI' => 'ND', 'TAUBIRA' => 'GAUCHE', 'VOYNET' => 'GAUCHE');

while ($fichier = shift) {
	my $annee = $fichier;
	$annee =~ s/_.*//;
	$couleur{'BAYROU'} = 'ND' if ($annee eq '2007');
	open (RES, $fichier);
	while (<RES>) {
		my @res = split ';';
		if ($res[1] && $res[9] && $res[12]) {
			print STDERR "$res[9] not found\n" unless ($couleur{$res[9]});
			$resultats{$res[1]}{$couleur{$res[9]}}{$annee} += $res[12];
		}
	}
}
print "#Departement;couleur politique;Gauche 2007 T1;Droite 2007 T1;Gauche 2002 T1;Droite 2002 T1\n";
foreach my $dep (keys(%resultats)) {
		my $tendance = 'ND';
		$tendance = 'GAUCHE' if ($resultats{$dep}{'GAUCHE'}{'2007'} - $resultats{$dep}{'DROITE'}{'2007'} > 1000 &&
 		                         (!$resultats{$dep}{'GAUCHE'}{'2002'} || $resultats{$dep}{'GAUCHE'}{'2002'} - $resultats{$dep}{'DROITE'}{'2002'} > 1000 ));
		$tendance = 'DROITE' if ($resultats{$dep}{'DROITE'}{'2007'} - $resultats{$dep}{'GAUCHE'}{'2007'} > 1000 &&
                                         (!$resultats{$dep}{'GAUCHE'}{'2002'} || $resultats{$dep}{'DROITE'}{'2002'} - $resultats{$dep}{'GAUCHE'}{'2002'} > 1000 ));
		print "$dep;$tendance;$resultats{$dep}{GAUCHE}{2007};$resultats{$dep}{DROITE}{2007};$resultats{$dep}{GAUCHE}{2002};$resultats{$dep}{DROITE}{2002};";
		my $ratiogd2007 = $resultats{$dep}{'GAUCHE'}{'2007'} / ($resultats{$dep}{'DROITE'}{'2007'}+1);
                my $ratiogd2002 = $resultats{$dep}{'GAUCHE'}{'2002'} / ($resultats{$dep}{'DROITE'}{'2002'}+1);
		print "$ratiogd2007;$ratiogd2002\n";
	
}

