Opened by Gast at 2008-12-17 20:47
Hallo, hab folgendes Beispiel aus der cpan. Leider bekomm ich es nicht hin das jede Zeile als Zeile ausgegeben wird. Ziel ist es eine Zeile auszugeben die nach jeder Zelle ein ; hat. Analog zu einer .csv. Programmier noch nicht so lang und hoffe das mir jemand eine Lösung zeigt und sie auch etwas erklärt.
Vielen Dank für Eure Hilfe.
ModEdit GwenDragon: Titel sinnvoll geändert; CODE-Tags hinzugefügt
Vielen Dank für Eure Hilfe.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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});
}
}
}
}
ModEdit GwenDragon: Titel sinnvoll geändert; CODE-Tags hinzugefügt