dipankar
New User
Sep 9, 2011, 12:54 AM
Post #1 of 2
(425 views)
|
|
"Use of uninitialized value $source in -e at C:/Perl/site/lib/Spreadsheet/ParseExcel.pm line 636."
|
Can't Post
|
|
m new to Perl,
i am getting an error like
"Use of uninitialized value $source in -e at C:/Perl/site/lib/Spreadsheet/ParseExcel.pm line 636."
can you help what could be this error:
Code is as follows:
use DBI;
use CGI;
use Spreadsheet::ParseExcel;
use DBD::ODBC;
$cgi = new CGI;
my $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server};Server=10.11.150.186;UID=$user;PWD=$password")
or die "Can't connect to database.\n";
$file = $cgi->param("cage.xls");
$workbook = Spreadsheet::ParseExcel::Workbook->Parse($cgi->param("cage.xls"));
foreach $sheet (@{$workbook->{Worksheet}})
{
foreach $col ($sheet->{MinCol} .. $sheet->{MaxCol})
{
if ($sheet->{Cells}[0][$col]->{Val} eq "TenderId")
{
$TenderId = $col;
}
if ($sheet->{Cells}[0][$col]->{Val} eq "Tender")
{
$Tender = $col;
}
$dbh->do("insert into tempdips (TenderId,Tender) values
(\'$TenderId\', \'$Tender\')");
}
}
any help will be much appreciated
|
MAIN
SEARCH
WHO'S 
LOG 