# FILE soccwcomb.pl working copy running time sec #============= CREATE SCORES PAGE =================== $scofile='SOCCWsco01.txt'; open (SCORES,"<$scofile") || die "Can't open $scorefile $!"; open (SCORESHTML, ">SOCCWscores01.html"); print SCORESHTML "CIAU football scores 2001 2001 Womens Soccer Scores \n"; while () { ($date,$Tm1,$Sco1,$Tm2,$Sco2,$GmType,$Notes) = split(':',$_); ### Flag any reversed score, stops program, prints line to warn if ($Sco1 < $Sco2) { die print "$date $Tm1 $Sco1 $Tm2 $Sco2 $GmType $Notes"; } # print date if alone on datafile row if ($Tm1 le " ") { print SCORESHTML "
$date\n"; } #print score lines without dates else { print SCORESHTML "
$Tm1 $Sco1 $Tm2 $Sco2 $GmType $Notes\n"; } } print SCORESHTML ""; #close HTML file close SCORESHTML; close SCORES; #==================================================== #### TEAM-BY-TEAM SCORES ### #==================================================== $scofile='SOCCWsco01.txt'; open (SCORES,"<$scofile") || die "Can't open $scorefile $!"; open (TEAMDATA, ">soccwteams01.html"); print TEAMDATA "
2001 SOCCW SCORES by Team
Atlantic E
Acadia
Dalhousie
Memorial
Saint Mary's
StFX
Atlantic W
Moncton
Mt Allison
UCCB
UNB
UPEI
 Quebec
Bishop's
Concordia
Laval
McGill
Sherbrooke
UQAM
UQTR

Ontario E
Carleton
Ottawa
Queen's
Trent
 Ontario NC
Laurentian
Nipissing
Toronto
York
Ontario SC
Brock
Guelph
McMaster
Ryerson
 Ontario W
Laurier
Waterloo
Western
Windsor

CanWest
Alberta
Calgary
Lethbridge
Regina
Saskatchewan
TWU
Victoria
UBC
  "; @TeamName = ("Acadia", "Dalhousie", "Memorial", "Saint Mary's", "StFX", "Moncton", "Mt Allison", "UCCB", "UNB", "UPEI", "Bishop's", "Concordia", "Laval", "McGill","Sherbrooke", "UQAM", "UQTR", "Carleton", "Ottawa", "Queen's", "Trent", "Brock", "Guelph", "McMaster", "Ryerson", "Laurentian", "Nipissing", "Toronto", "York", "Laurier", "Waterloo", "Western", "Windsor", "Alberta", "Calgary", "Lethbridge", "Regina", "Saskatchewan", "TWU", "Victoria", "UBC"); foreach $team (@TeamName) { open (TEAMDATA, ">>soccwteams01.html"); print TEAMDATA "

$team\n"; open (SCORES,"<$scofile") || die "Can't open $scorefile $!"; while () { ($Date,$Tm1,$Sco1,$Tm2,$Sco2,$GmType,$Notes) = split(':',$_); if ($Tm1 eq $team || $Tm2 eq $team) { print TEAMDATA "
$Date $Tm1 $Sco1 $Tm2 $Sco2 $GmType $Notes\n"; } } } print TEAMDATA ""; close SCORES; #==================================================== #### CREATING STANDINGS MDA file ### #==================================================== $scofile='SOCCWsco01.txt'; open (SOCCWMDA, ">soccwstand.txt") || die "Can't open $scorefile $!"; print SOCCWMDA ""; @TeamName = ("Acadia", "Dalhousie", "Memorial", "Saint Mary's", "StFX", "Moncton", "Mt Allison", "UCCB", "UNB", "UPEI", "Bishop's", "Concordia", "Laval", "McGill","Sherbrooke", "UQAM", "UQTR", "Carleton", "Ottawa", "Queen's", "Trent", "Brock", "Guelph", "McMaster", "Ryerson", "Laurentian", "Nipissing", "Toronto", "York", "Laurier", "Waterloo", "Western", "Windsor", "Alberta", "Calgary", "Lethbridge", "Regina", "Saskatchewan", "TWU", "Victoria", "UBC"); foreach $team (@TeamName) { open (SCORES,"<$scofile") || die "Can't open $scorefile $!"; open (SOCCWMDA, ">>soccwstand.txt") || die "Can't open $scorefile $!"; ($teamwins, $teamlosses, $pfor, $Against, $WLpct) =0; # initialize counts $teamlosses=0; $teamgp=0; $teamties=0; $pfor=0; $Against=0; $WLpct=0; $Margin=0; $Pts=0; $WLpct=0; $pfpg=0; $papg=0; $mgp=0; # while reading SCORES (SOCCWsco01.txt) line-by-line # parse it at colons : into standings variables while () { ($date,$Tm1,$Sco1,$Tm2,$Sco2,$GmType,$Notes) = split(':',$_); #------------------------------------------- # BEGIN calculation of standings variables. #------------------------------------------- if ($Tm1 eq $team and $GmType eq "" and $Notes !~ /TIE/ ) { # selects Conference only ++$teamgp; ++$teamwins ; # counts name in winner column $pfor = ($pfor + $Sco1); # adds winner's score to FOR $Against = ($Against + $Sco2); # adds loser's score to AGAINST } elsif ($Tm2 eq $team && $GmType eq "" && $Notes !~ /TIE/ ) { ++$teamgp; ++$teamlosses ; # counts name in loser column $pfor = ($pfor + $Sco2); # adds loser's score to FOR $Against = ($Against + $Sco1); # adds winner's score to AGAINST } elsif (($Tm2 eq $team || $Tm1 eq $team) && $GmType eq "" && $Notes =~ "TIE" ) { ++$teamgp; ++$teamties; $pfor = ($pfor + $Sco1); # adds tie score to FOR $Against = ($Against + $Sco1); # adds tie score to AGAINST } $Margin = ($pfor - $Against); # Calculates +/- diff $Pts = (3 * $teamwins) + $teamties; if ($teamgp == 0) { #NEW $WLpct = 1.000 ; #NEW } #NEW # calc W/L %, elim div by zero elsif ($teamlosses == 0 and $teamties == 0 and $teamgp != 0) { $WLpct = 1.000; #NEW > > > > > > > } else { $WLpct = ( ($teamwins + ($teamties * .5 )) / $teamgp ); } if ($teamgp != 0) { $pfpg = ($pfor / $teamgp); $papg = ($Against / $teamgp); $mgp = ($Margin / $teamgp); } if ($team =~ /Acadia|Dalhousie|Memorial|Saint Mary's|StFX/) { $conf = "aAUSE"; } elsif ($team =~ /Moncton|Mt Allison|UCCB|UNB|UPEI/) { $conf = "bAUSW"; } elsif ($team =~ /Bishop's|Concordia|Laval|McGill|Sherbrooke|UQAM|UQTR/) { $conf = "cQU"; } elsif ($team =~ /Carleton|Ottawa|Queen's|Trent/) { $conf = "dOUE"; } elsif ($team =~ /Laurentian|Nipissing|Toronto|York/) { $conf = "eOUNC"; } elsif ($team =~ /Brock|Guelph|McMaster|Ryerson/) { $conf = "fOUSC"; } elsif ($team =~ /Laurier|Waterloo|Western|Windsor/) { $conf = "gOUW"; } elsif ($team =~ /Alberta|Calgary|Lethbridge|Regina|Saskatchewan|TWU|Victoria|UBC/) { $conf = "hCW"; } } # END calculation of standings variables for Team. print SOCCWMDA "$team:$conf:$teamgp:$teamwins:$teamlosses:$teamties:$pfor:$Against:$Margin:$Pts:$WLpct:$pfpg:$papg:$mgp\n"; } close SOCCWMDA; #==================================================== #### SORTING STANDINGS ### #==================================================== $stanfile='soccwstand.txt'; open (SOCCWMDA, "; @mdasorted = map { $_->[0] } sort { $a->[2] cmp $b->[2] || $b->[10] <=> $a->[10] || $b->[11] <=> $a->[11] || $b->[14] <=> $a->[14] || $a->[1] cmp $b->[1] } map { [ $_, (split /:/, $_,) ] } @mda; open (STANHTML, ">soccwstand01.html"); print STANHTM ""; open (STANHTML, ">>soccwstand01.html"); open (STANAUSE, ">soccwstanause.txt"); open (STANAUSW, ">soccwstanausw.txt"); open (STANQUE, ">soccwstanque.txt"); open (STANOUAE, ">soccwstanouae.txt"); open (STANOUANC, ">soccwstanouanc.txt"); open (STANOUASC, ">soccwstanouasc.txt"); open (STANOUAW, ">soccwstanouaw.txt"); open (STANCW, ">soccwstancw.txt"); ##CHANGE no's for Men OUAE ++ print STANAUSE @mdasorted[0 .. 4]; ##AUS .. begins zero print STANAUSW @mdasorted[5 .. 9]; ##AUS .. print STANQUE @mdasorted[10 .. 16]; ##Quebec print STANOUAE @mdasorted[17 .. 20]; ##OUA E print STANOUANC @mdasorted[21 .. 24]; ##OUA NC print STANOUASC @mdasorted[25 .. 28]; ##OUA SC print STANOUAW @mdasorted[29 .. 32]; ##OUA W print STANCW @mdasorted[33 .. 40]; ##CanWest ##====================================================== print STANHTML " SOCCW Standings 2001 "; ##====================================================== ##================AUSE======================= print STANHTML " "; open (STANAUSE, ") { ($tm,$tmconf,$tmgp,$tmw,$tml,$tmt,$tmf,$tma,$tmm,$tmpts,$tmpct,$pfg,$pag,$pmg) = split(':',$_); $tmpct = sprintf("%.3f", $tmpct); ## converts to 3 places $tmpct =~ s/^0/ /g; ## replace Leading Zeros print STANHTML " "; } ##====================================================== ##================AUSW======================= print STANHTML " "; open (STANAUSW, ") { ($tm,$tmconf,$tmgp,$tmw,$tml,$tmt,$tmf,$tma,$tmm,$tmpts,$tmpct,$pfg,$pag,$pmg) = split(':',$_); $tmpct = sprintf("%.3f", $tmpct); ## converts to 3 places $tmpct =~ s/^0/ /g; ## replace Leading Zeros print STANHTML " "; } ##================QUE======================= print STANHTML " "; open (STANQUE, ") { ($tm,$tmconf,$tmgp,$tmw,$tml,$tmt,$tmf,$tma,$tmm,$tmpts,$tmpct,$pfg,$pag,$pmg) = split(':',$_); $tmpct = sprintf("%.3f", $tmpct); ## converts to 3 places $tmpct =~ s/^0/ /g; ## replace Leading Zeros print STANHTML " "; } ##================OUAE======================= print STANHTML " "; open (STANOUAE, ") { ($tm,$tmconf,$tmgp,$tmw,$tml,$tmt,$tmf,$tma,$tmm,$tmpts,$tmpct,$pfg,$pag,$pmg) = split(':',$_); $tmpct = sprintf("%.3f", $tmpct); ## converts to 3 places $tmpct =~ s/^0/ /g; ## replace Leading Zeros print STANHTML " "; } ##================OUANC======================= print STANHTML " "; open (STANOUANC, ") { ($tm,$tmconf,$tmgp,$tmw,$tml,$tmt,$tmf,$tma,$tmm,$tmpts,$tmpct,$pfg,$pag,$pmg) = split(':',$_); $tmpct = sprintf("%.3f", $tmpct); ## converts to 3 places $tmpct =~ s/^0/ /g; ## replace Leading Zeros print STANHTML " "; } ##================OUASC======================= print STANHTML " "; open (STANOUASC, ") { ($tm,$tmconf,$tmgp,$tmw,$tml,$tmt,$tmf,$tma,$tmm,$tmpts,$tmpct,$pfg,$pag,$pmg) = split(':',$_); $tmpct = sprintf("%.3f", $tmpct); ## converts to 3 places $tmpct =~ s/^0/ /g; ## replace Leading Zeros print STANHTML " "; } ##================OUAW======================= print STANHTML " "; open (STANOUAW, ") { ($tm,$tmconf,$tmgp,$tmw,$tml,$tmt,$tmf,$tma,$tmm,$tmpts,$tmpct,$pfg,$pag,$pmg) = split(':',$_); $tmpct = sprintf("%.3f", $tmpct); ## converts to 3 places $tmpct =~ s/^0/ /g; ## replace Leading Zeros print STANHTML " "; } ##================CW======================= print STANHTML " "; open (STANCW, ") { ($tm,$tmconf,$tmgp,$tmw,$tml,$tmt,$tmf,$tma,$tmm,$tmpts,$tmpct,$pfg,$pag,$pmg) = split(':',$_); $tmpct = sprintf("%.3f", $tmpct); ## converts to 3 places $tmpct =~ s/^0/ /g; ## replace Leading Zeros print STANHTML " "; } print STANHTML "
2001 Socc W Standings
Atlantic EW L T F A P Pct
$tm $tmw$tml$tmt$tmf$tma $tmpts $tmpct
Atlantic WW L T F A P Pct
$tm $tmw$tml$tmt$tmf$tma $tmpts $tmpct
Quebec W L T F A P Pct
$tm $tmw$tml$tmt$tmf$tma $tmpts $tmpct
Ontario E W L T F A P Pct
$tm $tmw$tml$tmt$tmf$tma $tmpts $tmpct
Ontario NCW L T F A P Pct
$tm $tmw$tml$tmt$tmf$tma $tmpts $tmpct
Ontario SCW L T F A P Pct
$tm $tmw$tml$tmt$tmf$tma $tmpts $tmpct
Ontario WW L T F A P Pct
$tm $tmw$tml$tmt$tmf$tma $tmpts $tmpct
CanWest W L T F A P Pct
$tm $tmw$tml$tmt$tmf$tma $tmpts $tmpct
"; ### END STANDINGS PAGE ### ## Tm conf g w l t f a m p % fgp agp mgp ##York:aAUS:8:3:5:0:99:205:-106:6:0.375:12.375:25.625:-13.25 ## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 #------------------------------------------------------------------ #------------------------------------------------------------------ ### PREPARE HIGH SCORING PAGE ### open (HIGHHTML, ">soccwhigh01.html") || die "Can't open $stanfile $!"; print HIGHHTML ""; print HIGHHTML " SOCCW Highest Scoring 2001 "; open (SOCCWMDA, "; @mdasorted = map { $_->[0] } sort { $b->[12] <=> $a->[12] || $b->[10] <=> $a->[10] || $b->[11] <=> $a->[11] || $b->[14] <=> $a->[14] || $a->[1] cmp $b->[1] } map { [ $_, (split /:/, $_,) ] } @mda; open (SOCCWSTANFILE, ">soccwstandtemp.txt") || die "Can't open $stanfile $!"; print SOCCWSTANFILE @mdasorted; open (SOCCWSTANFILE, ") { ($tm,$tmconf,$tmgp,$tmw,$tml,$tmt,$tmf,$tma,$tmm,$tmpts,$tmpct,$pfg,$pag,$pmg) = split(':',$_); $pfg = sprintf("%.1f", $pfg); ## converts to 1 place print HIGHHTML " "; } print HIGHHTML "
2001 Team Comparisons sorted by:
High Scoring W L T F A P Fpg
$tm $tmw$tml$tmt$tmf$tma $tmpts $pfg
"; ### END HIGH SCORING PAGE ### #------------------------------------------------------------------ #------------------------------------------------------------------ ### PREPARE LEAST SCORED ON PAGE ### print LEASTHTML ""; open (LEASTHTML, ">soccwleast01.html") || die "Can't open $stanfile $!"; print LEASTHTML ""; print LEASTHTML " SOCCW Least Scored On 2001 "; open (SOCCWMDA, "; @mdasorted = map { $_->[0] } sort { $a->[13] <=> $b->[13] || $b->[10] <=> $a->[10] || $b->[11] <=> $a->[11] || $b->[14] <=> $a->[14] || $a->[1] cmp $b->[1] } map { [ $_, (split /:/, $_,) ] } @mda; open (SOCCWSTANFILE, ">soccwstandtemp.txt") || die "Can't open $stanfile $!"; print SOCCWSTANFILE @mdasorted; open (SOCCWSTANFILE, ") { ($tm,$tmconf,$tmgp,$tmw,$tml,$tmt,$tmf,$tma,$tmm,$tmpts,$tmpct,$pfg,$pag,$pmg) = split(':',$_); $pag = sprintf("%.1f", $pag); ## converts to 1 place print LEASTHTML " "; } print LEASTHTML "
2001 Team Comparisons sorted by:
Least Scored On W L T F A P Apg
$tm $tmw$tml$tmt$tmf$tma $tmpts $pag
"; ### END LEAST SCORED ON PAGE ### #------------------------------------------------------------------ #------------------------------------------------------------------ ### PREPARE MARGIN PAGE ### print LEASTHTML ""; open (MARGHTML, ">soccwmargin01.html") || die "Can't open $stanfile $!"; print MARGHTML ""; print MARGHTML " SOCCW Least Scored On 2001 "; open (SOCCWMDA, "; @mdasorted = map { $_->[0] } sort { $b->[14] <=> $a->[14] || $b->[10] <=> $a->[10] || $b->[11] <=> $a->[11] || $a->[1] cmp $b->[1] } map { [ $_, (split /:/, $_,) ] } @mda; open (SOCCWSTANFILE, ">soccwstandtemp.txt") || die "Can't open $stanfile $!"; print SOCCWSTANFILE @mdasorted; open (SOCCWSTANFILE, ") { ($tm,$tmconf,$tmgp,$tmw,$tml,$tmt,$tmf,$tma,$tmm,$tmpts,$tmpct,$pfg,$pag,$pmg) = split(':',$_); $pmg = sprintf("%.1f", $pmg); ## converts to 1 place print MARGHTML " "; } print MARGHTML "
2001 Team Comparisons sorted by:
WL Margin W L T F A P Mpg
$tm $tmw$tml$tmt$tmf$tma $tmpts $pmg
"; ### END MARGIN PAGE ### #------------------------------------------------------------------ #------------------------------------------------------------------ ### PREPARE WL PERCENT PAGE ### open (PCTHTML, ">soccwpercent01.html") || die "Can't open $stanfile $!"; print PCTHTML ""; print PCTHTML " SOCCW Least Scored On 2001 "; open (SOCCWMDA, "; @mdasorted = map { $_->[0] } sort { $b->[11] <=> $a->[11] || $b->[10] <=> $a->[10] || $b->[14] <=> $a->[14] || $a->[1] cmp $b->[1] } map { [ $_, (split /:/, $_,) ] } @mda; open (SOCCWSTANFILE, ">soccwstandtemp.txt") || die "Can't open $stanfile $!"; print SOCCWSTANFILE @mdasorted; open (SOCCWSTANFILE, ") { ($tm,$tmconf,$tmgp,$tmw,$tml,$tmt,$tmf,$tma,$tmm,$tmpts,$tmpct,$pfg,$pag,$pmg) = split(':',$_); $tmpct = sprintf("%.3f", $tmpct); ## converts to 3 places $tmpct =~ s/^0/ /g; ## replace Leading Zeros print PCTHTML " "; } print PCTHTML "
2001 Team Comparisons sorted by:
WL Percent W L T F A P Pct
$tm $tmw$tml$tmt$tmf$tma $tmpts $tmpct
"; ### END WL PERCENT PAGE ### #------------------------------------------------------------------ #------------------------------------------------------------------