#я так понял это объявление глоб перем ?
use vars qw($y, $x, $sheet);
use vars qw(@dropcat,@ignorewords);
(@dropcat,@ignorewords) =(GetDropCats(), GetIgnoreWords() );
openXls ();
readXls ();
sub openXls
{
....
my $oExcel = new Spreadsheet::ParseExcel;
my $oBook = $oExcel->Parse($q->param('xls'));
$sheet = $oBook->{Worksheet}[0];
# вроде как sheet равен 0, хотя ображение
# $cellvalue = $sheet ->{Cells}[$x][$y]->Value;
# работает, как так ?
print 'sheet='.$sheet.'<br />';
}
sub readXls
{
# тоже 0
print $sheet.'<br />';
@_session = ( [], [] );
while( условие )
readCell(__LINE__);
...
}
скрипт работает, но почему $sheet = 0 ?
если просто зделать
my $sheet1 = $oBook->{Worksheet}[0];
print $sheet1 - выводит hash(xxx)
почему тогда там ноль ???
не могу уснуть !!! ((((