Data-Tabular
1 match

 view release on metacpan or  search on metacpan

examples/table1.cgi  view on Meta::CPAN 


#use lib '../blib/lib/';
#use lib '../lib/';

use Data::Tabular;

print "content-type: text/html\n\n";

our ($t1);

print q(<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
        "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
);
print "<html>\n<head><title>Data-Tabular test 1</title></head>\n<body>\n";

eval {
    $t1 = Data::Tabular->new(
	headers => [ 'cnt', 'animal', 'color', 'owner', 'jan', 'feb', 'amount', 'date' ],
	data => [
	    [ 1, 'cat', 'black', 'jane', 1, 2, 1.01, 'jan 1 2002' ],
	    [ 1, 'cat', 'black', 'joey', 2, 3, 1.01, 'jan 1 2002' ],



( run in 0.524 second using v1.01-cache-2.11-cpan-49f99fa48dc )