- my ($name, $email, $url);
- if((-f ($opts{'faculty'}||"")) && ! %faculty) {
- open INS, $opts{'faculty'} or die $!;
- while($_ = <INS>) {
- chomp;
- m/"([^"]*)",([^,]*),([^,]*)/; # "
- ($name, $email, $url) = ($1, $2, $3);
- $name =~ s/ [A-Z]\.//g;
- $name = lc $name;
- $name =~ s/\W//g;
- $faculty{$name} = $email;
- $facurl{$name} = $url;
- }
- }