#!/usr/local/bin/perl -w

## Class roll generator for UNC - Chapel Hill
## Usage: list2tbl return_data.txt > classlist.tex
##  (then latex classlist.tex, dvips -o classlist.ps classlist.dvi)
## (c) 2001 Andrew J. Perrin, All rights reserved
## Permission granted to use and distribute with credit
## Original: http://www.unc.edu/~aperrin/tips/src/list2tbl-pl.txt
## Comments/questions: andrew_perrin@unc.edu

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[1], $fields[0], $fields[8],
		      $fields[10], "\\url{$fields[12]}")), "\\\\\n\\hline\n";
    $year{$fields[8]}++;
    $major{$fields[10]}++;
    $total++
}

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