Ошибка нехватки памяти при разборе определенного файла Excel из программы Perl - PullRequest
Новая
       8

Ошибка нехватки памяти при разборе определенного файла Excel из программы Perl

1 голос
/ 18 февраля 2009

При запуске кода Perl программа генерирует некоторые предупреждения и завершает работу. Вывод как показано ниже: 

D:\Perl\bin\search tool>perl testa.pl 
UTF-16 surrogate 0xdb79 at D:/Perl/site/lib/Spreadsheet/ParseExcel/FmtDefault.pm line 81. 
UTF-16 surrogate 0xdbb1 at D:/Perl/site/lib/Spreadsheet/ParseExcel/FmtDefault.pm line 81. 
UTF-16 surrogate 0xd83e at D:/Perl/site/lib/Spreadsheet/ParseExcel/FmtDefault.pm line 81. 
UTF-16 surrogate 0xdff8 at D:/Perl/site/lib/Spreadsheet/ParseExcel/FmtDefault.pm line 81. 
UTF-16 surrogate 0xdbff at D:/Perl/site/lib/Spreadsheet/ParseExcel/FmtDefault.pm line 81. 
UTF-16 surrogate 0xdd98 at D:/Perl/site/lib/Spreadsheet/ParseExcel/FmtDefault.pm line 81. 
substr outside of string at D:/Perl/site/lib/Spreadsheet/ParseExcel.pm line 1196. 
Use of uninitialized value in unpack at D:/Perl/site/lib/Spreadsheet/ParseExcel.pm line 1196. 
substr outside of string at D:/Perl/site/lib/Spreadsheet/ParseExcel.pm line 1196.
Use of uninitialized value in unpack at D:/Perl/site/lib/Spreadsheet/ParseExcel.pm line 1196. 
Out of memory!

Системная информация указана ниже:

Версия Perl: 5.010000 Название ОС: MSWin32 Версии модуля: (не все требуются) Электронная таблица :: ParseExcel 0.49 Скаляр :: Util 1.19 Юникод :: Карта (не установлена) Spreadsheet :: WriteExcel (не установлен) Parse :: RecDescent (не устанавливается) Файл :: Temp 0.18 OLE :: Storage_Lite 0.18 IO :: Stringy 2.110

Код Perl: 

use strict; 
    use Spreadsheet::ParseExcel; 
    my $parser = Spreadsheet::ParseExcel->new( 
        CellHandler => \&cell_handler, 
        NotSetCell  => 1 
    ); 
    my $workbook = $parser->Parse('testfile.xls'); 
    sub cell_handler { 
        my $workbook    = $_[0]; 
        my $sheet_index = $_[1]; 
        my $row         = $_[2]; 
        my $col         = $_[3]; 
        my $cell        = $_[4]; 
        print $cell->unformatted(), "\n"; 
    }

У меня также есть пример testfile.xls.

1 Ответ

4 голосов
/ 18 февраля 2009

На этот вопрос ответили в таблице :: ParseExcel Google Group здесь .

Проблема в том, что конкретный файл зашифрован.

Джон.

...