#!/usr/local/bin/perl -w
use strict;
use vars qw/%major %year $total/;

sub bynum {
    $major{$b} <=> $major{$a};
}

print <<EOT;
\\documentclass{article}
\\usepackage{url,fullpage}
\\begin{document}
\\begin{tabular}{|l|l|l|l|l|}
\\hline
Name & PID & Year & Maj & Email \\\\
\\hline
EOT

while(<>) {
    chomp;
    my (@fields) = split(/\t/,$_);
    s/^\s+// for @fields;
    s/\s+$// for @fields;
    print join(' & ',($fields[0], $fields[1], $fields[3],
		      $fields[5], "\\url{$fields[7]}")), "\\\\\n\\hline\n";
    $year{$fields[3]}++;
    $major{$fields[5]}++;
    $total++;
    unless ($total % 45) {
	print "\\hline\n";
	print "\\end{tabular}\n";
	print "\\newpage\n";
	print "\\begin{tabular}{|l|l|l|l|l|}\n";
	print "\\hline\n";
	print "Name & PID & Year & Maj & Email \\\\\n";
	print "\\hline\n";
    }
}

print <<EOT;
\\hline
\\multicolumn{5}{|l|}{Total: $total students}\\\\
\\hline
\\end{tabular}
\\newpage
\\begin{tabular}{|l|r|r|}
\\hline
Major & Count & Proportion \\\\
\\hline
EOT
foreach (sort bynum keys %major) {
    print "$_ & $major{$_} & " . sprintf('%.1f', $major{$_}/$total*100) . "\\%\\\\\n\\hline\n";
}
print <<EOT;
\\end{tabular}
\\begin{tabular}{|l|r|r|}
\\hline
Year & Count & Proportion \\\\
\\hline
EOT
foreach ('FR','SO','JR','SR') {
    print "$_ & $year{$_} & " . sprintf('%.1f', $year{$_}/$total*100) . "\\%\\\\\n\\hline\n";
}
print <<EOT;
\\end{tabular}
\\end{document}
EOT