#!/usr/local/bin/perl @ownerOrder = qw/Alcatraz Shawon Rockies Beer Kaskie Madmen Hoobadaddy Talkneetna EightyNiners Sandinistas Maja/; $valToSortBy = "val"; # val|tVal $date = `date`; open (BATTERS, "Batting_Mix.csv") || die "couldn't open Batting_Mix.csv\n"; while () { next if (/^Lastname/); next if (/^Baseball HQ/); (@fields) = split /,/; $name = "$fields[0],$fields[1]"; $player{$name}{pos} = 0; $player{$name}{runs} = $fields[8]; $player{$name}{hrs} = $fields[12]; $player{$name}{rbi} = $fields[13]; $player{$name}{sbs} = $fields[16]; $player{$name}{avg} = $fields[20]; $player{$name}{obp} = $fields[21]; $player{$name}{slg} = $fields[22]; $player{$name}{ops} = $player{$name}{obp} + $player{$name}{slg}; } close (BATTERS); open (PITCHERS, "Pitching_Mix.csv") || die "couldn't open Pitching_Mix.csv\n"; while () { next if (/^Last/); next if (/^Baseball HQ/); next if (/^\s*$/); next if (/^\,*$/); (@fields) = split /,/; $name = "$fields[0],$fields[1]"; if ($player{$name}) { print "$name already found!\n\t[$_]\n"; next; } $player{$name}{pos} = 1; $player{$name}{wins} = $fields[6]; $player{$name}{saves} = $fields[8]; $player{$name}{ks} = $fields[14]; $player{$name}{holds} = $fields[39]; $player{$name}{era} = $fields[21]; $player{$name}{whip} = $fields[19]; } close (PITCHERS); open (ROSTERS, "cargo_rosters.csv") || die "couldn't open cargo_rosters.csv\n"; while () { next if (/^First,Last/); next if (/^\s*$/); chomp; @fields = ""; (@fields) = split /,/; $name = "$fields[1],$fields[0]"; unless ($player{$name}) { print "[$name] not found in projections\n"; next; } $player{$name}{owner} = $fields[2]; } close (ROSTERS); foreach $name (keys %player) { $unsorted[$i++] = $name; } @sorted = sort { $player{$b}{$valToSortBy} <=> $player{$a}{$valToSortBy} } @unsorted; open (OUT, ">team_analysis.html") || die "couldn't open team_analysis.html\n"; print OUT "Cargo Team Analysis"; print OUT "\n"; print OUT "Last Updated: $date

"; foreach $thisOwner (@ownerOrder) { print OUT ""; print OUT "Alcatraz | Shawon | Rockies | "; print OUT "Beer | Kaskie | Hoobadaddy | "; print OUT "Talkneetna | EightyNiners | "; print OUT "Sandinistas | Maja
"; print OUT "\n"; # outer table print OUT "
$thisOwner\n"; print OUT "
NameR/WHR/Sv\n"; print OUT "RBI/KSB/HoldAvg/ERAOPS/WHIP\n"; for ($i=0; $i < int(@sorted); $i++) { $name = $sorted[$i]; next unless ($player{$name}{owner} eq $thisOwner); $color = yellow; print OUT "
$name"; if ($player{$name}{pos} == 1) { print OUT "$player{$name}{wins}"; print OUT "$player{$name}{saves}"; print OUT "$player{$name}{ks}"; print OUT "$player{$name}{holds}"; printf OUT "%1.2f", $player{$name}{era}; printf OUT "%1.2f", $player{$name}{whip}; $owners{$thisOwner}{totalWins} += $player{$name}{wins}; $owners{$thisOwner}{totalSaves} += $player{$name}{saves}; $owners{$thisOwner}{totalHolds} += $player{$name}{holds}; $owners{$thisOwner}{totalKs} += $player{$name}{ks}; } else { print OUT "$player{$name}{runs}"; print OUT "$player{$name}{hrs}"; print OUT "$player{$name}{rbi}"; print OUT "$player{$name}{sbs}"; printf OUT "%1.2f", $player{$name}{avg}; printf OUT "%1.3f", $player{$name}{ops}; $owners{$thisOwner}{totalHRs} += $player{$name}{hrs}; $owners{$thisOwner}{totalRuns} += $player{$name}{runs}; $owners{$thisOwner}{totalRBI} += $player{$name}{rbi}; $owners{$thisOwner}{totalSBs} += $player{$name}{sbs}; } } print OUT "
TOTALSNA"; print OUT "$owners{$thisOwner}{totalRuns} / $owners{$thisOwner}{totalWins}"; print OUT "$owners{$thisOwner}{totalHRs} / $owners{$thisOwner}{totalSaves}"; print OUT "$owners{$thisOwner}{totalRBI} / $owners{$thisOwner}{totalKs}"; print OUT "$owners{$thisOwner}{totalSBs} / $owners{$thisOwner}{totalHolds}"; print OUT "NA / NA"; print OUT "

"; # end of inner player table } print OUT ""; print OUT "

"; print OUT ""; print OUT ""; print OUT ""; } print OUT "
Owner"; print OUT "RunsHRsRBISBsWinsSavesKsHolds"; foreach $name (@ownerOrder) { print OUT "
$name$owners{$name}{totalRuns}$owners{$name}{totalHRs}"; print OUT "$owners{$name}{totalRBI}$owners{$name}{totalSBs}"; print OUT "$owners{$name}{totalWins}$owners{$name}{totalSaves}"; print OUT "$owners{$name}{totalKs}$owners{$name}{totalHolds}"; print OUT "
"; print OUT "";