Revision 6ac073db
Von Bernd Bleßmann vor mehr als 8 Jahren hinzugefügt
| SL/Helper/Csv.pm | ||
|---|---|---|
| 245 | 245 |
my $row = $self->_csv->getline($self->_io); |
| 246 | 246 |
if ($row) {
|
| 247 | 247 |
my $header = $self->_header_by_row($row); |
| 248 |
if (!$header) {
|
|
| 249 |
push @errors, [ |
|
| 250 |
0, |
|
| 251 |
"Cannot get header for row. Maybe row name and datatype field not matching.", |
|
| 252 |
0, |
|
| 253 |
0]; |
|
| 254 |
last; |
|
| 255 |
} |
|
| 248 | 256 |
my %hr; |
| 249 | 257 |
@hr{@{ $header }} = @$row;
|
| 250 | 258 |
push @data, \%hr; |
Auch abrufbar als: Unified diff
Csv-Helper: Fehlermeldung, wenn Header nicht erkannt wird (Multiplex-Dateien).