Kokoc
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
К Perl есть модуль Spreadsheet:ParseExcel и пр. - см. на www.cpan.org
Под Windows данные можно достать через OLE (с ActivePerl) - ставить ничего не придется.
У меня, правда, обратная задача была - взять данные и вставить в Excel.
Пример (из описания модуля Win32::OLE):
Код:
use Win32::OLE;
my $ex;
eval {$ex = Win32::OLE->GetActiveObject('Excel.Application')};
die "Excel not installed" if $@;
unless (defined $ex) {
$ex = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;})
or die "Oops, cannot start Excel";
}
$workbook = $ex->Workbooks->Open($out_dir.$xls_file);
foreach $cell_no (sort keys %cells)
{
# в %cells сидят данные, которые надо вставить в таблицу
# в виде <N ячейки>,<данные>; напр. %cells=("A1","Hello");
$worksheet->Range($cell_no)->{Value} = $cells{$cell_no};
}
$workbook->SaveAs($out_dir.$out_file);
undef $workbook;
undef $ex;
|
Аналогично можно приделать и чтение. Потом можно прикрутить DBI/DBD с Mysql.
Т.е. запускаешь на локалхосте, а тот коннектится к удаленному MySQL и грузит туда данные. |
— Svarga. 
