Revision 552ed9ba
Von Bernd Bleßmann vor mehr als 6 Jahren hinzugefügt
| SL/Helper/Csv.pm | ||
|---|---|---|
| 239 | 239 |
} |
| 240 | 240 |
} |
| 241 | 241 |
|
| 242 |
sub _is_empty_row {
|
|
| 243 |
return !!all { !$_ } @{$_[0]};
|
|
| 244 |
} |
|
| 245 |
|
|
| 242 | 246 |
sub _parse_data {
|
| 243 | 247 |
my ($self, %params) = @_; |
| 244 | 248 |
my (@data, @errors); |
| ... | ... | |
| 246 | 250 |
while (1) {
|
| 247 | 251 |
my $row = $self->_csv->getline($self->_io); |
| 248 | 252 |
if ($row) {
|
| 253 |
next if _is_empty_row($row); |
|
| 249 | 254 |
my $header = $self->_header_by_row($row); |
| 250 | 255 |
if (!$header) {
|
| 251 | 256 |
push @errors, [ |
Auch abrufbar als: Unified diff
CSV-Helfer: Leere Zeilen ignorieren.
Als leere Zeilen hier gelten auch Zeilen, die nur das Trennzeichen enthalten.
Mit leeren Zeilen gab es immer wieder Probleme, teils mit schwer zu
interpretierenden Fehlermeldungen, teils mit nicht gewünschtem Verhalten, z.B.
beim Warenimport das Anlegen neuer Artikel für jede leere Zeile.