It Works

#!/usr/bin/perl -w use strict; use diagnostics; use Data::Table; use HTML::Template; open( OUT, ">itworks.html" ) or die "cant open out $!"; my $table = new Data::Table( [ [ 1, 2, 3 ], [ 10, 20, 30 ] ], [ 'A', 'B' ], 1 ); my @newCol2 = (); $newCol2[ $table->nofRow - 1 ] = undef; # print $table->html; my $template = HTML::Template->new( filename => 'template.tpl' # loop_context_vars => 1, # filter => \&cstmrow_filter ); $template->param( my_table => $table->html ); print OUT $template->output; ##

##




	
	It Works
	
	


	
Just a sample table



2007-04-24

© ... ; )