Graduate Students
| Degree
Program | Home
Department | RSL
Advisor |
|---|
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$flag = 0;
open(P, '< /usr/local/share/www/rsl/roster.txt');
while () {
if ($_ =~ /# Graduate Students/) {$flag=1; next;}
if ($_ =~ /^$/) {next;}
if ($flag == 0) {next;}
if ($_ =~ /^#/) {last;}
$l = $_;
chomp($l);
($name, $phone, $office, $email, $url, $advisor, $degree, $dept) =
trim_wsp(split(/\s*\|/, $l));
if ($url =~ /\w+/) {
$url =~ s|/|http://rsl.stanford.edu/|;
$url =~ s|/|http://www.stanford.edu/people/|;
$name = "$name";
}
$degree =~ s|PhD|Ph.D.|;
$degree =~ s|MD|M.D.|;
$degree =~ s|MS|M.S.|;
$dept =~ s|Electrical Engineering|Electrical Engineering|;
$dept =~ s|Mechanical Engineering|Mechanical Engineering|;
$dept =~ s|Computer Science|Computer Science|;
$dept =~ s|Medicine|Medicine|;
$dept =~ s|Neuroscience|Neuroscience|;
$dept =~ s|Management Science and Engineering|Management Science and Engineering|;
$dept =~ s|Bioengineering|Bioengineering|;
$dept =~ s|Physics|Physics|;
$dept =~ s|Chemistry|Chemistry|;
$dept =~ s|Biophysics|Biophysics|;
$dept =~ s|Comparative Biochemistry at UC Berkeley|Comparative Biochemistry at UC Berkeley|;
print "| $name | $degree | $dept | $advisor |
\n";
}
close(P);
sub trim_wsp {
my ($w, @x);
foreach $w (@_) {
$w =~ s/^\s*//;
push(@x, $w);
}
return @x;
}
» Contact Graduate Students
