I've created a quick and easy way to view your database in an excel browser. Hope someone finds this useful.
#!/usr/local/bin/perl -w
use CGI qw(:standard);
use Spreadsheet::WriteExcel;
$header = "Please Wait Loading";
# Open the file with pipe | separated variables
open (PIPEFILE, "/path/to/default.db");
# Create a new Excel file
my $excel = Spreadsheet::WriteExcel->new("/path/to/webserver/default.xls");
# Row and column are zero indexed
my $row = 0;
my $col;
while (<PIPEFILE>) {
chomp;
# Split on single tab
my @Fld = split('\|', $_);
my $token;
$col = 0;
foreach $token (@Fld) {
# Write number or string as necessary
$excel->xl_write($row, $col, $token);
$col++;
}
$row++;
}
print "Content-Type: text/html\n\n\n";
print("<HTML><HEAD><TITLE>Excel View</TITLE><META HTTP-EQUIV=\"REFRESH\" CONTENT=\"2; url=http://www.yourserver.com/default.xls\"></HEAD> <BODY bgcolor=#ffffff><BR><BR><BR> <FONT COLOR=#000000 ><CENTER><H1>$header</H1></CENTER></FONT><BR>");
print("</body></HTML>");
exit;
#!/usr/local/bin/perl -w
use CGI qw(:standard);
use Spreadsheet::WriteExcel;
$header = "Please Wait Loading";
# Open the file with pipe | separated variables
open (PIPEFILE, "/path/to/default.db");
# Create a new Excel file
my $excel = Spreadsheet::WriteExcel->new("/path/to/webserver/default.xls");
# Row and column are zero indexed
my $row = 0;
my $col;
while (<PIPEFILE>) {
chomp;
# Split on single tab
my @Fld = split('\|', $_);
my $token;
$col = 0;
foreach $token (@Fld) {
# Write number or string as necessary
$excel->xl_write($row, $col, $token);
$col++;
}
$row++;
}
print "Content-Type: text/html\n\n\n";
print("<HTML><HEAD><TITLE>Excel View</TITLE><META HTTP-EQUIV=\"REFRESH\" CONTENT=\"2; url=http://www.yourserver.com/default.xls\"></HEAD> <BODY bgcolor=#ffffff><BR><BR><BR> <FONT COLOR=#000000 ><CENTER><H1>$header</H1></CENTER></FONT><BR>");
print("</body></HTML>");
exit;
