Разбор изображений из ячеек в файле 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";
        }   
    }   
}

0 ответов

Другие вопросы по тегам