How to delete a row in an excel file?

[Banditzika]

Hello everybody,

I have questions relating xls-files. I have to write a script in perl in which I parse an excel file. My problem now is that I must delete some rows from the xls-file and I haven't found out how. I have allready googled it but I didn't found any answers. If anyone of you had the same problem and discoverd a solution pls tell me about it. The solutions like reading the hole xls and memorising it in the main memory are out of question because my computer has no enough memory for such big xls-files and it could go out of memory.

Thanks in advance,
Banditzika

[eWish]

Welcome to "TSDN" Banditzika!

What have you tried that has not worked for you. Please provide some sample code and we will try and help you work it out.

[Banditzika]

Hello,

I tried from cpan.org the sample code from de ParseExcel module but i received the following error message:
Weak references are not implemented in the version of perl at C:/Win16App/Perl/l
ib/Spreadsheet/ParseExcel.pm line 67
BEGIN failed--compilation aborted at C:/Win16App/Perl/lib/Spreadsheet/ParseExcel
.pm line 67.
Compilation failed in require at D:\Task\task_4\tst.pl line 4.
BEGIN failed--compilation aborted at D:\Task\task_4\tst.pl line 4.

The sample code is:

use strict;
use Spreadsheet::ParseExcel;

my $excel = Spreadsheet::ParseExcel::Workbook->Parse($file);
foreach my $sheet (@{$excel->{Worksheet}}) {
printf("Sheet: %s\n", $sheet->{Name});
$sheet->{MaxRow} ||= $sheet->{MinRow};
foreach my $row ($sheet->{MinRow} .. $sheet->{MaxRow}) {
$sheet->{MaxCol} ||= $sheet->{MinCol};
foreach my $col ($sheet->{MinCol} .. $sheet->{MaxCol}) {
my $cell = $sheet->{Cells}[$row][$col];
if ($cell) {
printf("( %s , %s ) => %s\n", $row, $col, $cell->{Val});
}
}
}
}