Установили мне админы модули
Spreadsheet-ParseExcel
Spreadsheet-WriteExcel
Ща пробую делать указаную выше штуку.
Скопировал с ентого урля
http://www-106.ibm.com/developerwor...brary/l-pexcel/вот такую вещь
#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;
my $oExcel = new Spreadsheet::ParseExcel;
die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV;
my $oBook = $oExcel->Parse($ARGV[0]);
my($iR, $iC, $oWkS, $oWkC);
print "FILE :", $oBook->{File} , "\\n";
print "COUNT :", $oBook->{SheetCount} , "\\n";
print "AUTHOR:", $oBook->{Author} , "\\n"
if defined $oBook->{Author};
for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++)
{
$oWkS = $oBook->{Worksheet}[$iSheet];
print "--------- SHEET:", $oWkS->{Name}, "\\n";
for(my $iR = $oWkS->{MinRow} ;
defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ;
$iR++)
{
for(my $iC = $oWkS->{MinCol} ;
defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ;
$iC++)
{
$oWkC = $oWkS->{Cells}[$iR][$iC];
print "( $iR , $iC ) =>", $oWkC->Value, "\\n" if($oWkC);
}
}
}
запускаю
http://www.autodealer.ru/_proba.plв ерор логе такая штука
Premature end of script headers: /web/autodealer/site/www/_proba.pl
You must provide a filename to _proba.pl to be parsed as an Excel file at _proba.pl line 8
делаю так
http://www.autodealer.ru/_proba.pl?other (есть ещё файл other.xls)
он пишет
Premature end of script headers: /web/autodealer/site/www/_proba.pl
Use of uninitialized value at _proba.pl line 12.
Use of uninitialized value at _proba.pl line 13.
Use of uninitialized value at _proba.pl line 18.
Может кто подскажет. А то я совсем не рублю в Перл\'е.
(но видимо придётся разбираться и учить)
