in reply to Rendering Clean MS-Excel Spreadsheets to a Browser
use strict; use warnings; use CGI qw(:standard); use DBIx::XHTML_Table; my $file = '/path/to/foo.xls'; my $dbh = DBI->connect("DBI:Excel:file=$file",undef,undef,{RaiseErro +r=>1}); my $table = DBIx::XHTML_Table->new($dbh); my $sheet = ($dbh->tables)[0]; $table->exec_query("select * from $sheet"); print header, $table->output;
jeffa
L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)
|
|---|