#!/usr/bin/perl
open(OUTFILE, ">results.html");
print OUTFILE "";
print OUTFILE "Summit Results";
print OUTFILE "";
print OUTFILE "";
print OUTFILE "";
print OUTFILE "";
print OUTFILE "| Company | ";
print OUTFILE "Address | ";
print OUTFILE "Name | ";
print OUTFILE "Email | ";
print OUTFILE "Phone | ";
print OUTFILE "fjskdfjskla | ";
print OUTFILE "fjsdklfja | ";
print OUTFILE "fhjsdhfj | ";
print OUTFILE "Pfjdskl | ";
#... there's 25 fileds
print OUTFILE "
";
open (FF,"mylogfile.log") or die("There was a problem opening the file.");
while ($entry=) {
@fields=split(/ /,$entry);
print OUTFILE "";
print OUTFILE "| $fields[0] | ";
print OUTFILE "$fields[1] | ";
print OUTFILE "$fields[2] | ";
print OUTFILE "$fields[3] | ";
print OUTFILE "$fields[4] | ";
print OUTFILE "$fields[5] | ";
print OUTFILE "$fields[6] | ";
print OUTFILE "$fields[7] | ";
print OUTFILE "$fields[8] | ";
print OUTFILE "$fields[9] | ";
#... there's 25 fileds
print OUTFILE "
";
}
close DB;
print OUTFILE "
";
print OUTFILE "";
print OUTFILE "";
close OUTFILE;