#!/usr/local/bin/perl @ownerOrder = qw/chris claude ivan ken marc mark pete steve ted tom/; $valToSortBy = "val"; # val|tVal $moneyAvail = 2600; # money available to spent (10 teams * $260) $date = `date`; open (BATTERS, "Batting_NL.csv") || die "couldn't open Batting_NL.csv\n"; while () { next if (/^Lastname/); next if (/^Baseball HQ/); (@fields) = split /,/; $name = "$fields[0],$fields[1]"; $player{$name}{pos} = $fields[4]; $player{$name}{team} = $fields[5]; $player{$name}{val} = $fields[24]; $player{$name}{runs} = $fields[9]; $player{$name}{hrs} = $fields[13]; $player{$name}{rbi} = $fields[14]; $player{$name}{sbs} = $fields[17]; $player{$name}{obp} = $fields[20]; } close (BATTERS); open (PITCHERS, "Pitching_AL.csv") || die "couldn't open Pitching_AL.csv\n"; while () { next if (/^Lastname/); next if (/^Baseball HQ/); (@fields) = split /,/; $name = "$fields[0],$fields[1]"; if ($player{$name}) { print "$name already found!\n"; next; } $player{$name}{pos} = 1; $player{$name}{team} = $fields[4]; $player{$name}{val} = $fields[22]; $player{$name}{wins} = $fields[7]; $player{$name}{saves} = $fields[10]; $player{$name}{ks} = $fields[18]; $player{$name}{era} = $fields[19]; $player{$name}{whip} = $fields[20]; } close (PITCHERS); open (ROSTERS, "postAuction_Mikita_rosters.csv") || die "couldn't open postAuction_Mikita_rosters.csv\n"; while () { next if (/^Last,First/); next if (/^\s*$/); chomp; @fields = ""; (@fields) = split /,/; $name = "$fields[0],$fields[1]"; unless ($player{$name}) { print "[$name] not found in projections\n"; next; } $player{$name}{salary} = $fields[2]; $player{$name}{contract} = $fields[3]; $player{$name}{owner} = $fields[4]; $player{$name}{starter} = 1 if ($fields[5] eq "s"); } 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 "Mikita Team Analysis"; print OUT "\n"; print OUT "Last Updated: $date

"; foreach $thisOwner (@ownerOrder) { print OUT ""; print OUT "Chris | Claude | Ivan | "; print OUT "Ken | Marc | Markkk | "; print OUT "Pete | Steve | Ted | "; print OUT "Tom
"; print OUT "\n"; # outer table print OUT "
$thisOwner\n"; print OUT "
NameContractValueHR/WRBI/Sv\n"; print OUT "R/KSB/ERAOBP/WHIPSalaryV/S\n"; for ($i=0; $i < int(@sorted); $i++) { $name = $sorted[$i]; next unless ($player{$name}{owner} eq $thisOwner); if ($player{$name}{contract} =~ /R/) { $color = grey; } else { $color = yellow; } print OUT "
$name"; print OUT "$player{$name}{contract}"; print OUT "$player{$name}{val}"; if ($player{$name}{pos} == 1) { print OUT "$player{$name}{wins}"; print OUT "$player{$name}{saves}"; print OUT "$player{$name}{ks}"; printf OUT "%1.2f", $player{$name}{era}; printf OUT "%1.2f", $player{$name}{whip}; unless ($player{$name}{contract} =~ /R/) { $owners{$thisOwner}{totalWins} += $player{$name}{wins}; $owners{$thisOwner}{totalSaves} += $player{$name}{saves}; $owners{$thisOwner}{totalKs} += $player{$name}{ks}; } } else { printf OUT "$player{$name}{hrs}"; printf OUT "$player{$name}{rbi}"; printf OUT "$player{$name}{runs}"; printf OUT "$player{$name}{sbs}"; printf OUT "$player{$name}{obp}"; unless ($player{$name}{contract} =~ /R/) { $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 "$player{$name}{salary}"; if ($player{$name}{contract} =~ /R/) { print OUT "NA"; } else { printf OUT "%1.2f", $player{$name}{val} / $player{$name}{salary}; $owners{$thisOwner}{totalSalary} += $player{$name}{salary}; $owners{$thisOwner}{totalValue} += $player{$name}{val}; } } print OUT "
TOTALSNA"; print OUT "$owners{$thisOwner}{totalValue}"; print OUT "$owners{$thisOwner}{totalHRs} / $owners{$thisOwner}{totalWins}"; print OUT "$owners{$thisOwner}{totalRBI} / $owners{$thisOwner}{totalSaves}"; print OUT "$owners{$thisOwner}{totalRuns} / $owners{$thisOwner}{totalKs}"; print OUT "$owners{$thisOwner}{totalSBs} / NA"; print OUT "NA / NA"; print OUT "$owners{$thisOwner}{totalSalary}"; printf OUT "%1.2f", $owners{$thisOwner}{totalValue} / $owners{$thisOwner}{totalSalary}; print OUT "

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

"; print OUT ""; print OUT ""; print OUT ""; print OUT ""; print OUT ""; printf OUT "", $owners{$name}{totalValue} / $owners{$name}{totalSalary}; print OUT ""; } print OUT "
OwnerSalaryValRatioHRsRBIRunsSBsWinsSavesKs"; foreach $name (keys %owners) { print OUT "
$name$owners{$name}{totalSalary}$owners{$name}{totalValue}%1.2f$owners{$name}{totalHRs}$owners{$name}{totalRBI}"; print OUT "$owners{$name}{totalRuns}$owners{$name}{totalSBs}"; print OUT "$owners{$name}{totalWins}$owners{$name}{totalSaves}"; print OUT "$owners{$name}{totalKs}"; print OUT "
"; print OUT "";