my @links = ('colorado-pc','http://colorado:5810',
'pm', 'http://www.perlmonks.org');
my %linkHash = @links;
my @linkKeys = keys %linkHash;
my @lines = ('christine|colorado10|colorado-pc|10/09/08|XP tom|california12|go49ers-pc|09/12/08|vista',
'pm');
my $htmlPage = '
';
foreach my $line (@lines)
{
# substitute links
foreach my $link (@linkKeys)
{
my $tmpLink = aWrap($linkHash{$link},$link);
$line =~ s/$link/$tmpLink)/g;
}
#split the | into table delimeters
$line =~ s/\|/<\\td>/g;
# tack on table html code
$line = ' | '.$line.' |
';
#add 2 page
$htmlPage .= $line;
}
$htmlPage .= '
';
print $htmlPage."\n";
sub aWrap {
my $ref = shift;
my $title = shift;
return " $title "
}