#!/usr/bin/perl
#
# http://sourceforge.net/projects/dataoniphone/ V 0.9 04/08/2008 17:02:00
#
open (INFILEHANDLE, "<table.txt") or die "error opening";
open (OUTFILEHANDLE, ">table.html") or die "error opening";

while (<INFILEHANDLE>) {
  chomp;
  if ($_ eq "") {
    print OUTFILEHANDLE "<B><\/B><BR>\n\n<HR>\n"; # was an empty line
  } else {
    s/\t/ /;   #join 1st & 2nd field (comment this if undesired)
    s/\t/ <\/B><BR>\n/;   # 1st fields will be bold so we have a <\/B>
    s/\t/ <BR>\n/g;  # remaining fields will end with <BR>
    print OUTFILEHANDLE "<B> $_ <BR>\n<HR>\n"; # record separator will be <HR>
  }
}

close INFILEHANDLE;
close OUTFILEHANDLE;

print "\nFile table.html created (press a key)\n";
$line = <STDIN>;