# Last update: 2003/12/16
# 
# CSV Table to HTML
#
# (p) J. Nagasaki
#
#
# Converts "simple" n*m csv file to a unformatted HTML table
#
# INPUT:  CSV File (;) named "tab.csv"
# OUTPUT: Generated HTML table (<table> ... </table>) named "tab.html"
#

open(FILE, "<tab.csv") || die "Could not open table.html\n";
my @infile = <FILE>;	
close(FILE);

@outfile="";
push (@outfile, "<table>\n");


foreach (@infile)
{
	$_ = "\t<tr>\n\t\t<td>".$_;		# "<tr><td>" + first line
	$_ =~ s/;/<\/td>\n\t\t<td>/gi;		# replace ; with </td><td>
	chomp ($_);				# remove \n at end
	$_ .= "<\/td>\n\t<\/tr>\n";		# line + "</td></tr>"
		
	push (@outfile, $_);
}

push (@outfile, "<\/table>");

open(FILE, ">./tab.html");
print FILE @outfile;	
close(FILE);