#!/usr/local/bin/perl -I. opendir(DIR,'.'); @jobs = grep(/\.txt/,sort readdir(DIR)); closedir DIR; foreach $job (@jobs) {$job =~ s/\.txt//; open(IN,"$job.txt"); $len = -s IN; read(IN,$buffer,$len); @para = split(/\n\n/,$buffer); $Title{$job} = $para[0]; $np = @para; for($n=1;$n<$np;$n++) {$Body{$job} .= "

$para[$n]

"; } $Body{$job} =~s/(\w[a-zA-z\.\_\-]+\w\@\w[a-zA-z\.\_\-]+\w)/"$1<\/A>"/eg; $Body{$job} =~s/(\#\w[a-zA-z0-9\.\_\-]+\w)/" $1<\/A>"/eg; # $Body{$job} =~s/(http:\/\/\w[a-zA-z\.\_\-\?\&\#\/]+\w\/?)/" $1<\/A>"/eg; close IN; } foreach $job (@jobs) { $body .= "

"; $body .= "Job #$job.  " if $job =~ /^\d/; $body .= "$Title{$job}

"; $body .= "$Body{$job}"; } # Read in the top image my $top_file = "../../topbanner.html"; my $smb_top =""; open(IN, $top_file); $len = -s IN; read(IN, $smb_top, $len); close(IN); # Read in the menu definition my $menu_file = "../topnavnews.html"; my $smb_menu =""; open(IN, $menu_file); $len = -s IN; read(IN, $smb_menu, $len); close(IN); print < Stanford University/SSRL Structural Molecular Biology Group Job Opportunities $smb_top $smb_menu

SSRL/Stanford University Structural Molecular Biology Group Job Opportunities

$body
XXX