-sub do_faculty {
- my @readheaders = ("Name", "College", "Email");
- my $te = new HTML::TableExtract( headers => [ @readheaders ] );
- foreach(qw(a b c d e f g h i j k l m n o p q r s t u v w x y z)) {
- my $response = $ua->get("http://$domain/fs/".$_."dir.htm");
- die $response->status_line unless $response->is_success;
- $te->parse($response->content);
- }
- foreach my $ts ($te->table_states) {
- foreach my $row ($ts->rows) {
- map { s/[\r\n]//g; $_} @$row;
- $row->[0] = capitalize($row->[0]);
- $row->[0] =~ s/([A-Z]r?)$/$1./;
- print '"'.$row->[0].'",',$row->[2].',', $row->[1], "\n";
- }
- }
-}
-