Разбор изображений из ячеек в файле XLS
Я установил модуль Spreadsheet::ParseExcel и добавил скрипт, показанный в примере для этого модуля, для разбора файла XLS. Он работает хорошо, за исключением одного: он не тянет изображения, которые находятся в ячейках. Любые идеи о том, как получить изображения в клетках? и ячейка-> значение и ячейка-> неформатированная ничего не получают (пусто), когда сталкиваются с изображением в ячейке.
Вот код:
#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;
my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('myworkbook.xls');
if (!defined $workbook)
{
die $parser->error(), ".\n";
}
for my $worksheet ($workbook->worksheets())
{
my ($row_min, $row_max) = $worksheet->row_range();
my ($col_min, $col_max) = $worksheet->col_range();
for my $row($row_min .. $row_max)
{
for my $col ($col_min .. $col_max)
{
my $cell = $worksheet->get_cell($row, $col);
next unless $cell;
print "Row, Col = ($row, $col)\n";
print "Value = ", $cell->value(), "\n";
print "Unformatted = ", $cell->unformatted(), "\n";
print "\n";
}
}
}