Postdoctoral Fellows
| Degree | Previous University | RSL
Supervisor | |
|---|
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$flag = 0;
open(P, '< /usr/local/share/www/rsl/roster.txt');
while () {
if ($_ =~ /# Postdoctoral Fellows/) {$flag=1; next;}
if ($_ =~ /^$/) {next;}
if ($flag == 0) {next;}
if ($_ =~ /^#/) {last;}
$l = $_;
chomp($l);
($name, $phone, $office, $email, $url, $advisor, $degree, $nci, $univ) =
trim_wsp(split(/\s*\|/, $l));
if ($url =~ /\w+/) {
$url =~ s|/|http://rsl.stanford.edu/|;
$url =~ s|/|http://www.stanford.edu/people/|;
$url =~ s|/|http://med.stanford.edu/profiles/|;
$name = "$name";
}
$degree =~ s|PhD|Ph.D.|;
$degree =~ s|MD|M.D.|;
$nci =~ s|NCI|» NCI Fellow|;
print "| $name | $degree | $univ | $advisor | $nci |
\n";
}
close(P);
sub trim_wsp {
my ($w, @x);
foreach $w (@_) {
$w =~ s/^\s*//;
push(@x, $w);
}
return @x;
}
» Contact Postdoctoral Fellows
