#!C:\perl\bin\perl.exe -w
use strict;
use LWP::Simple;
use Data::Dumper;
use Statistics::Descriptive;
my $buch_stat = Statistics::Descriptive::Full->new();
my $gore_stat = Statistics::Descriptive::Full->new();
my $counties = "counties.dat";

use constant URL => 'http://www.cnn.com/ELECTION/2000/results/FL/';
my $url_data = get( URL );
my @data = split /\n/, $url_data;
open OUT,  ">$counties" or die $!;
foreach my $line ( @data ) {
    print OUT "$1|$2\n" if $line =~ /<option value="(\d+)">([^<]+)<\/option>/;
}
close OUT;
use constant BASE_URL => 'http://www.cnn.com/ELECTION/2000/results/FL/';
my @candidates = qw( Gore Bush Nader Browne Buchanan Hagelin Phillips );

open COUNTIES, "<$counties" or die "Could not open $counties: $!";
my ( %votes, @gore_percent, @buchanan_percent );

while (<COUNTIES>) {
    my ( $number, $county ) = split /\|/;
    chomp $county;
    print "Processing $county:";

    my $url_data = get( BASE_URL . $number );
    my $county_total = 0;
    for my $candidate ( @candidates ) {
        if ( $url_data =~ /$candidate[^\d]+(\d+,?(?:\d+)?)/s ) {
            my $vote_count = $1;
            $vote_count =~ s/,//;
            $votes{ $candidate }{ $county } =  $vote_count;
            $votes{ $candidate }{ 'Total' } += $vote_count;
            $county_total += $vote_count;
        }
    }
    my $buch_percent = $votes{ 'Buchanan' }{ $county } / $county_total;
    my $gore_percent = $votes{ 'Gore' }{ $county } / $county_total;
    push @buchanan_percent, $buch_percent;
    push @gore_percent, $gore_percent;
    print "\tGore: " . ( sprintf "%.3f", $gore_percent*100 ) . "%";
    print "\tBuch: " . ( sprintf "%.3f", $buch_percent*100 ) . "%\n";
}

$buch_stat->add_data(  @buchanan_percent );
my $buch_mean = $buch_stat->mean();
my $buch_sdev = $buch_stat->standard_deviation(); 
  
$gore_stat->add_data(  @gore_percent );
my $gore_mean = $gore_stat->mean();
my $gore_sdev = $gore_stat->standard_deviation(); 

my $target_county = "Palm Beach";
my $target_total  = 0;
foreach my $candidate ( @candidates ) {
    $target_total += $votes{ $candidate }{ $target_county };
}
my $target_buch = $votes{ 'Buchanan' }{ $target_county };
my $target_gore = $votes{ 'Gore' }{ $target_county };
my $target_buch_percent = $target_buch / $target_total;
my $target_gore_percent = $target_gore / $target_total;
my $buch_diff = $target_buch_percent - $buch_mean;
my $gore_diff = $target_gore_percent - $gore_mean;

print "\n$target_county\tTotal votes: $target_total\n\t" .
      "Buchanan votes: $target_buch\n\tGore votes: $target_gore\n";

print "Buchanan \% in $target_county: " . (sprintf "%.5f", $target_buch_percent*100) . "%\n" .
      "\tDifference between this percent and his mean: " . (sprintf "%.5f", $buch_diff*100) . "%\n" . 
      "\tStandard deviations: " . (sprintf "%.5f", $buch_diff / $buch_sdev) . "\n";

print "Gore in \% $target_county: " . (sprintf "%.5f", $target_gore_percent*100) . "%\n" .
      "\tDifference between this percent and his mean: " . (sprintf "%.5f", $gore_diff*100) . "%\n" .
      "\tStandard deviations: " . (sprintf "%.5f", $gore_diff / $gore_sdev) . "\n";

##</code><code>##

Palm Beach      Total votes: 432695
        Buchanan votes: 3407
        Gore votes: 269696
Buchanan % in Palm Beach: 0.78739%
        Difference between this percent and his mean: 0.31976%
        Standard deviations: 0.99817
Gore in % Palm Beach: 62.32935%
        Difference between this percent and his mean: 19.70633%
        Standard deviations: 2.16736