#!/usr/bin/perl

open (my $fh, "2013.orig");
while (my $line = <$fh>) {
    chomp $line;
    my @fld = split(' ', $line);
    if ($#fld < 15 || $fld[0] eq "NAME") {
	# text
	print "$line\n";
    } elsif ($#fld > 15) {
	# rebounding stats
	$fld[0] = substr($fld[0], 0, 1);
	$fld[1] = substr($fld[1], 0, 7);
	$processed = sprintf("%s.%-7s %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s\n", $fld[0], $fld[1], $fld[2], $fld[3], $fld[4], $fld[5], $fld[6], $fld[7], $fld[8], $fld[9], $fld[10], $fld[11], $fld[12], $fld[13], $fld[14], $fld[15], $fld[16]);
	printf $processed;
    } else {
	# shooting stats
	$fld[0] = substr($fld[0], 0, 1);
	$fld[1] = substr($fld[1], 0, 7);
	$processed = sprintf("%s.%-7s %-2s      %-2s      %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s    %-4s     %-4s\n", $fld[0], $fld[1], $fld[2], $fld[3], $fld[4], $fld[5], $fld[6], $fld[7], $fld[8], $fld[9], $fld[10], $fld[11], $fld[12], $fld[13], $fld[14], $fld[15]);
	printf $processed;
    }
}
exit;

$stopStr = "<h2 data-mobile-header=\"\" style=\"\">Per Game</h2>\n";
do {
    $buffer = readline(RESULT);
} until ($buffer eq $stopStr);
$stopStr = "   <td align=\"left\" ><a href=\"/players/$_[1]/$_[2]/gamelog/2015/\">2014-15</a>";


do {
    $buffer = readline(RESULT);
} until ($buffer =~ $stopStr || $buffer =~ "</html>");
if ($buffer =~ "</html") {
    printf "%s NO DATA\n", $_[0];
    return;
}
for ($index = 0; $index < 6; $index++) {
    readline(RESULT);
}
$mpgLine = readline(RESULT);
$mpg = substr($mpgLine, 22, 4);
$bracket = rindex($mpg, "<", 3);
if ($bracket != -1) {
    substr($mpg, $bracket, 1, ' ');
}

if ($_[3] eq "y") {
    $stopStr = "<h2 data-mobile-header=\"\" style=\"\">Per 36 Minutes</h2>\n";
    do {
	$buffer = readline(RESULT);
    } until ($buffer eq $stopStr);
    $stopStr = "   <td align=\"left\" ><a href=\"/players/$_[1]/$_[2]/gamelog/2015/\">2014-15</a>";
    do {
	$buffer = readline(RESULT);
    } until ($buffer =~ $stopStr);
    for ($index = 0; $index < 22; $index++) {
	readline(RESULT);
    }
    $perLine = readline(RESULT);
    $val = substr($perLine, 22, 4);
    $bracket = rindex($val, "<", 3);
    if ($bracket != -1) {
	substr($val, $bracket, 1, ' ');
    }
    
    readline(RESULT);
    readline(RESULT);
    $perLine = readline(RESULT);
    $val2 = substr($perLine, 22, 4);
    $bracket = rindex($val2, "<", 3);
    if ($bracket != -1) {
	substr($val2, $bracket, 1, ' ');
    }
    
    $ast = $val*4/3;
    $to = $val2*4/3;
}

if ($_[3] eq "b") {
    $stopStr = "<h2 data-mobile-header=\"\" style=\"\">Per 36 Minutes</h2>\n";
    do {
	$buffer = readline(RESULT);
    } until ($buffer eq $stopStr);
    $stopStr = "   <td align=\"left\" ><a href=\"/players/$_[1]/$_[2]/gamelog/2015/\">2014-15</a>";
    do {
	$buffer = readline(RESULT);
    } until ($buffer =~ $stopStr);
    for ($index = 0; $index < 24; $index++) {
	readline(RESULT);
    }
    $perLine = readline(RESULT);
    $val = substr($perLine, 22, 4);
    $bracket = rindex($val, "<", 3);
    if ($bracket != -1) {
	substr($val, $bracket, 1, ' ');
    }
    
    $blk = $val/36*200;
}

$stopStr = "<h2 data-mobile-header=\"\" style=\"\">Advanced</h2>\n";
do {
    $buffer = readline(RESULT);
} until ($buffer eq $stopStr);
$stopStr = "   <td align=\"left\" ><a href=\"/players/$_[1]/$_[2]/gamelog/2015/\">2014-15</a>";
do {
    $buffer = readline(RESULT);
} until ($buffer =~ $stopStr);
for ($index = 0; $index < 6; $index++) {
    readline(RESULT);
}
$perLine = readline(RESULT);
for ($index = 0; $index < 15; $index++) {
    readline(RESULT);
}
$wsLine = readline(RESULT);
close (RESULT);
$val = substr($perLine, 22, 4);
$ws = substr($wsLine, 22, 5);
$bracket = rindex($val, "<", 3);
if ($bracket != -1) {
    substr($val, $bracket, 1, ' ');
}
$bracket = rindex($ws, "<", 4);
if ($bracket != -1) {
    substr($ws, $bracket, 1, ' ');
}
if ($_[3] eq "y") {
    printf "%s %4.1f %.3f %.1f %.1f %.1f\n", $_[0], $val, $ws, $mpg, $ast, $to;
}
elsif ($_[3] eq "b") {
    printf "%s %4.1f %.3f %.1f %.1f\n", $_[0], $val, $ws, $mpg, $blk;
}
else {
    printf "%s %4.1f %.3f %.1f\n", $_[0], $val, $ws, $mpg;
}